 (defn freshen [project & args]
   (let [prj-file-name (str (:root project) "/project.clj")
         old-deps (:dependencies project)
-        fresh-versions-map (get-fresh-versions)
-        desired-new-deps (map #(fresh-version fresh-versions-map %) old-deps)]
+        desired-new-deps (doall (map #(fresh-version %) old-deps))]
     (doseq [[[prj old-ver] [_ new-ver]] (map list old-deps desired-new-deps)]
       (println (format "%-40s" prj)
                (str old-ver

  "[project {groupId name ctime sha}] [project coordinate-string]"
  [repos-dir pspec]
  (prn "find-matching-projects" repos-dir pspec)
  (let [{:keys [sha artifactId groupId]} pspec
        dirs (all-repos-dirs)
        sha-candidates (locate-sha dirs sha)

    {:ctime ctime :sha sha}))

(defn format-voom-ver
  [gver]
  (let [{:keys [ver ctime sha]} gver]
    (str (s/replace ver #"-SNAPSHOT" "")
         "-" (formatted-timestamp timestamp-fmt ctime) "-g" sha)))

(defn update-proj-version
  [project long-sha?]
  (let [gver (-> project :root (get-voom-version :long-sha? long-sha?))
        upfn #(format-voom-ver (assoc gver :ver %))
        nproj (update-in project [:version] upfn)
        nmeta (update-in (meta project) [:without-profiles :version] upfn)
        nnproj (with-meta nproj nmeta)]
