update docs

This commit is contained in:
Adam Jeniski 2026-01-05 02:43:46 -05:00
parent 9fecfeee46
commit 02922ccc55

View File

@ -18,11 +18,16 @@
(not (str/blank? (:out result)))))
(defn find-subrepos [parent-dir]
"Find all git repositories in parent directory"
(->> (fs/list-dir parent-dir)
(filter fs/directory?)
(filter git-repo?)
(map str)))
"Find all git repositories in parent directory, including parent itself"
(let [child-repos (->> (fs/list-dir parent-dir)
(filter fs/directory?)
(filter git-repo?)
(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]
"Commit all changes in repository with given message"