       deps)))
 
 (defn box-add
+  "Add a lein project to this box"
   [proj & adeps]
   (let [deps (fold-args-as-meta (map edn/read-string adeps))]
     (ensure-deps-repos deps)


(declare voom)
(defn box
  [proj & args]
  (let [[^String ver ^String pwd ^String ififo ^String ofifo & rargs] args
        _ (assert (= "1" ver))
        fpwd (File. pwd)
        fofifo (future (-> ofifo FileOutputStream. OutputStreamWriter.))
        fififo (future (-> ififo FileInputStream.))]


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