           (print-repo-infos repo-infos))))))
 
 (defn box-init
+  "Initilize existing directory as a box and add named lein projects to it"
   [proj target & args]
   (let [t (adj-path *pwd* target task-dir)]
     (sh "mkdir" "-p" t)


  (let [subtask-var (resolve (symbol "leiningen.voom"
                                     (s/replace subtask-name #"^:" "")))]
    (if-let [subtask (some #{subtask-var} (concat subtasks internal-subtasks))]
      (if (:info-subtask (meta subtask))
        (prn (apply subtask args))
        (apply subtask project args))

      (apply box-add proj args))))

(defn box-new
  "Create a new box directory and add named lein projects to it"
  [proj target & args]
  (let [p (adj-path *pwd* target)]
    (sh "mkdir" "-p" p)
