update docs
This commit is contained in:
parent
9fecfeee46
commit
02922ccc55
15
commitly
15
commitly
@ -18,11 +18,16 @@
|
|||||||
(not (str/blank? (:out result)))))
|
(not (str/blank? (:out result)))))
|
||||||
|
|
||||||
(defn find-subrepos [parent-dir]
|
(defn find-subrepos [parent-dir]
|
||||||
"Find all git repositories in parent directory"
|
"Find all git repositories in parent directory, including parent itself"
|
||||||
(->> (fs/list-dir parent-dir)
|
(let [child-repos (->> (fs/list-dir parent-dir)
|
||||||
(filter fs/directory?)
|
(filter fs/directory?)
|
||||||
(filter git-repo?)
|
(filter git-repo?)
|
||||||
(map str)))
|
(map str))
|
||||||
|
parent-is-repo? (git-repo? parent-dir)
|
||||||
|
repos (if parent-is-repo?
|
||||||
|
(cons (str parent-dir) child-repos)
|
||||||
|
child-repos)]
|
||||||
|
repos))
|
||||||
|
|
||||||
(defn commit-changes [repo-path message]
|
(defn commit-changes [repo-path message]
|
||||||
"Commit all changes in repository with given message"
|
"Commit all changes in repository with given message"
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user