git-pull-all: Fix failure on non-git directories

Signed-off-by: Joseph Nuthalapati <njoseph@riseup.net>

diff --git a/git-pull-all b/git-pull-all
index 6b0de16a85bcc08c28dcf4af335c3902a35fa56b..78c40009ca2958a08ff08bc09bd4d6ddc2c0f52b 100755 (executable)
--- a/git-pull-all
+++ b/git-pull-all
@@ -7,7 +7,16 @@
 
 (def default-root ".")
 
-(defn list-dirs [root] (filter #(.isDirectory %) (.listFiles (io/file root))))
+(defn has-git-repo
+  [dir]
+  (first (filter #(= ".git" %)
+           (map #(.getName %)
+             (filter #(.isDirectory %) (.listFiles (io/file dir)))))))
+
+(defn list-dirs
+  [root]
+  (filter #(has-git-repo %)
+    (filter #(.isDirectory %) (.listFiles (io/file root)))))
 
 (defn git-pull [dir] (p/process ["git" "-C" dir "pull" "--rebase"]))