From 02922ccc55b58a72b97f4d6c1640850c8031c6f0 Mon Sep 17 00:00:00 2001 From: Adam Jeniski Date: Mon, 5 Jan 2026 02:43:46 -0500 Subject: [PATCH] update docs --- commitly | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/commitly b/commitly index a517fa6..c60178b 100755 --- a/commitly +++ b/commitly @@ -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"