Signed-off-by: Joseph Nuthalapati <njoseph@riseup.net>
(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"]))