     (cond
      (:print kargset) (println (:version @new-project))
      (:parse kargset) (prn (ver-parse (first sargs)))
+     (:find-box kargset) (prn (find-box))
+     (:box-add kargset) (apply box-add project sargs)
      :else (if-let [f (get sub-commands (first sargs))]
              (apply f @new-project (rest sargs))
              (if (and (dirty-wc? (:root @new-project))

          :when (.contains ^String proj dep) ]
      proj)))

(defn find-box
  "Locates voom-box root starting from current working directory."
  [& args]

(def sub-commands
  {"build-deps" build-deps
   "freshen" freshen
   "retag" retag
   "new-task" nope})

