                    (str "-"
                     (.format (SimpleDateFormat. "yyyy-MM-dd-hh-mm") (Date.)))
                    ""))
-    (if (= "" (or (get version :rest) ""))
-      (update version :bugfix #(inc (or % 0)))
-      (assoc version :rest ""))))
+    (-> (if (= "" (or (get version :rest) ""))
+          (update version :bugfix #(inc (or % 0)))
+          (assoc version :rest ""))
+        (assoc :snapshot? true))))
+
 
 
 (defn ^:private project-version

  (let [snapshot? (.endsWith version-string snapshot-indicator)
        version-string (if snapshot?
                         (.substring version-string 0 (- (.length version-string)
                                                         (.length ^String snapshot-indicator))))
        matcher (re-matcher version-regex version-string)
        groups (vec (drop 1 (re-find matcher)))]
    (when-not (seq groups)

      proj-dir)))


(defn ^:private project-list
  []
  (recurse-find-project-files (project-directory)))


(defn ^:private bump-project-version
