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

(defn list-projects
  [& args]
  (clojure.pprint/pprint [(project-directory)
                          (recurse-find-project-files (project-directory))]))


(defn show-project-version
  [& args]
  (println (-> (project-directory)
               recurse-find-project-files
               project-version)))


(defn set-version

      proj-dir)))


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


(defn ^:private bump-project-version
