       (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)

      deps)))

(defn box-add
  [proj & adeps]
  (let [deps (fold-args-as-meta (map edn/read-string adeps))]
    (ensure-deps-repos deps)

          (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)
