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

    (cond
     (:print kargset) (println (:version @new-project))
     (:parse kargset) (prn (ver-parse (first 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 adj-path
  ([f path] (adj-path false f path))
  ([dir-flag f path]
     (->
      ;; TODO Should this be made an isDirectory check?
      (if (and = dir-flag (.isFile ^File f))
        (.getParentFile ^File f)
        ^File f)
      (.getCanonicalPath)
      ^String (str "/" path)
      (File.))))

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