                                 (concat neg-tags [(str "origin/" found-branch) "--" found-path]))))]
         :when (seq commits)]
     (let [refs (-> commits first :refs)
+          ;; _ (pprint {:gitdir gitdir :path found-path :branch found-branch :commits commits})
           reflist (filter #(and
                             (= (str proj-name) (:proj %))
                             (= found-path (:path %))) (map parse-tag refs))]
       (some (fn [[current next-commit]]
-              #_(prn :refs path (:refs next-commit))
               (when (or (= :end next-commit)
                         (some #(= found-path (:path (parse-tag %)))
                               (:refs next-commit)))

                   [(str "--git-dir=" (.getPath gitdir))
                    (str "--work-tree=" (.getParent gitdir))])
        all-args (concat dir-args subcmd)
        {:keys [exit] :as rtn} (apply sh "git" all-args)]
    (when-not (ok-statuses exit)
      (throw (ex-info "git error" (assoc rtn :git all-args))))

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

