 (defn fetch-all
   [dirs]
   (doseq [^File d dirs]
-    (println "Fetching:" (.getPath d))
+    (print (str "Fetching: " (.getPath d) "\n"))
+    (flush)
     (git {:gitdir d} "fetch")))
 
 (defn find-project


(defn box-add
  [proj & deps]
  (doseq [dep deps]
    (let [full-projs (resolve-short-proj (name dep))
          full-projs (map symbol full-projs)

    (doseq [branch branches]
      (let [tag (str "voom-branch--" branch)]
        (git {:gitdir gitdir} "tag" "-f" tag (str "origin/" branch))))))

(defn tag-all-repos
  [& {:keys [fetch]}]
  (->> (all-repos-dirs)
       (map #(future
               (when fetch
                 (fetch-all [%]))
               (tag-repo-projects %)))
       doall
       (map deref)
       dorun))

(defn clear-voom-tags
  [gitdir]
