      :path found-path
      :proj proj-name
      :gitdir gitdir
+     :repo found-repo
      :branch found-branch}))
 
 (defn help

       (map (fn [info]
              (-> info
                  (dissoc :gitdir)
                  (assoc :repo (-> (remotes (:gitdir info)) :origin :fetch))
                  (update-in [:sha] #(subs (str % "--------") 0 7)))))
       (sort-by :ctime)
       (print-table [:repo :path :proj :version :branch :ctime :sha]))
  (newline))

(defn fresh-version [[prj ver :as dep]]
  (if-let [voom-meta (-> dep meta :voom)]
    (let [voom-meta (merge {:allow-snaps false, :freshen true} voom-meta)]
      (if (not (:freshen voom-meta))
        dep
        (let [groups (->> (newest-voom-ver-by-spec prj voom-meta)
                          (map #(assoc % :voom-ver (format-voom-ver %)))
                          (group-by :voom-ver))]
          (case (count groups)

    (fetch-all))
  (let [prj-file-name (str (:root project) "/project.clj")
        old-deps (:dependencies project)
        repo-dbs (all-repo-dbs)
        desired-new-deps (doall (map #(fresh-version repo-dbs %) old-deps))]
    (doseq [[[prj old-ver] [_ new-ver]] (map list old-deps desired-new-deps)]
      (println (format "%-40s" prj)
               (str old-ver
