   [repos-dir pspec]
   (prn "find-matching-projects" repos-dir pspec)
   (let [{:keys [sha artifactId groupId]} pspec
-        dirglob (str (s/replace repos-dir #"/$" "") "/*/.git")
-        dirs (glob dirglob)
-        _ (prn "dirs" dirglob dirs)
+        dirs (all-repos-dirs)
         sha-candidates (locate-sha dirs sha)
         sha-candidates (or sha-candidates
                            (do (fetch-all dirs)

;; lein commands?  Separate lein plugins?
(def sub-commands
  {"build-deps" build-deps
   "freshen" nope
   "task-add" nope
   "new-task" nope})


  (seq (for [d dirs
             :when (contains-sha? d sha)]
         d)))

(defn all-repos-dirs []
  (glob (str (s/replace repos-home #"/$" "") "/*/.git")))

(defn fetch-all
  [dirs]
