     (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]

          replacement-map))

(defn freshen [project & args]
  (let [prj-file-name (str (:root project) "/project.clj")
        old-deps (:dependencies project)
        desired-new-deps (doall (map #(fresh-version %) old-deps))]

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

(defn find-project
