 (def ^{:doc "Display this help message"} box-help help)
 
 (def subtasks [#'build-deps #'deploy #'find-box #'freshen #'help #'install
-               #'retag-all-repos #'update-repo-dbs #'ver-parse #'wrap
+               #'update-repo-dbs #'ver-parse #'wrap
                #'box #'box-new #'box-init #'box-add #'box-remove #'box-help])
 
 ;; Note the docstring for 'voom' is seen when the user runs any of:

       doall
       (map deref)
       dorun))

(defn parse-tag
  [tag]
  (->
   (zipmap [:prefix :proj :version :path :sha :snaps :no-parent] (s/split tag #"--"))
   (update-in [:path] (fnil #(s/replace % #"%" "/") :NOT_FOUND))
   (update-in [:proj] (fnil #(s/replace % #"%" "/") :NOT_FOUND))))

(defn assert-good-version [ver proj-name version tags found-branch neg-tags commits]
  (when-not ver
    (println "Tags matching" proj-name version ":")
    (doseq [t tags]
      (prn t))
    (println "Tag filters to exclude from branch" found-branch ":")
    (doseq [t neg-tags]
      (prn t))
    (println "Commits:")
    (doseq [c commits]
      (prn c))
    (throw (ex-info "Failed to find version for commit." {}))))

(declare newest-voom-ver-by-spec)


      xs))
   (lazy-seq (println "done"))))

(defn p-repos
  "Call f once for each repo dir, in parallel. When all calls are
  done, return nil."
