      :path found-path
      :proj proj-name
      :gitdir gitdir
+     :repo found-repo
      :branch found-branch}))
 
 (defn help

               (add-git-facts gitdir))]
    (when (::dirty (meta db))
      (write-git-db db gitdir))
    db))

(defn update-repo-dbs
  "Update voom dbs for all git repos in $VOOM_REPOS.

(defn box-add
  "Add a lein project to this box"
  [proj & adeps]
  (let [repo-dbs (all-repo-dbs)
        deps (fold-args-as-meta (map edn/read-string adeps))]
    (ensure-deps-repos deps)
    (doseq [dep deps
            :let [repo-infos (newest-voom-ver-by-spec repo-dbs dep (-> dep meta :voom))]]
      (println "box adding" (str (-> dep meta :voom)) dep)
      (case (count repo-infos)
        0 (throw (ex-info "Could not find matching projects" {:dep dep}))
