             [clojure.string :as s]
             [clojure.pprint :refer [pprint print-table]]
             [clojure.java.io :as io]
+            [clojure.set :as set]
             [leiningen.core.project :as project]
             [leiningen.core.main :as lmain]
             [org.satta.glob :refer [glob]]

        :when (or (= found-path path) (nil? path))
        found-branch (origin-branches gitdir)
        :when (or (= found-branch branch) (nil? branch))
        :let [tags-with-parents (remove #(.endsWith ^String % "--no-parent") tags)
              neg-tags (map #(str "^" % "^") tags-with-parents)
              commits
              , (map
                 parse-sha-refs

        :let [ptn (s/join "--" ["voom"
                                (str (namespace proj-name) "%" (name proj-name))
                                (str ver-spec "*")])
              tags (set (:lines (git {:gitdir gitdir} "tag" "--list" ptn)))
              ;;_ (prn :tags tags)
              tspecs (if (= tags [""])
                       []
