      foo-1.2.3-20120219_223112-abc123f
      /path/to/foo-1.2.3-20120219_223112-gabc123f19ea8d29b13.jar"
   [ver-str]
-  (let [[_ ctime sha] (re-matches #".*-?([0-9]{8}_?[0-9]{6})-g?([a-f0-9]{4,40})(?:\.jar)?$" ver-str)]
-    (when (and ctime sha)
-      {:ctime (s/replace ctime #"_" "") :sha sha})))
+  (let [[_ ctime-str sha] (re-matches #".*-?([0-9]{8}_?[0-9]{6})-g?([a-f0-9]{4,40})(?:\.jar)?$" ver-str)]
+    (when (and ctime-str sha)
+      (let [ctime (parse-formatted-timestamp timestamp-fmt ctime-str)]
+        {:ctime ctime :sha sha}))))
 
 (defn dirty-wc?
   [path]

             (.setTimeZone (java.util.SimpleTimeZone. 0 "GMT")))
           t))

(defn get-voom-version
  [path & {:keys [long-sha? gitdir]}]
  (let [shafmt (if long-sha? "%H" "%h")

         "-" (formatted-timestamp timestamp-fmt ctime)
         "-g" (re-find #"^.{4,7}" (str sha)))))

(defn get-project-version
  [project long-sha?]
  (-> project :root (get-voom-version :long-sha? long-sha?)))

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