       (.waitFor @process))))
 
 (defn start-process-command
-  [process cmd path]
+  [process cmd path args]
   (let [project-map (read-project-clj path)
         java-cmd (or (:java-cmd project-map) (System/getenv "JAVA_CMD") "java")]
     (start-process process

       (start-thread thread in out)))

(defn -main
  [& args]
  (System/setProperty "jline.terminal" "dumb")
  (let [project-map (read-project-clj (nth args 1))]
    (case (nth args 0)
      "run" (leiningen.run/run project-map)
      "run-android" (doseq [cmd ["build" "apk" "install" "run"]]
                      (leiningen.droid/droid project-map cmd))
      "build" (leiningen.uberjar/uberjar project-map)
      "build-android" (leiningen.droid/droid project-map "release")
      "repl" (leiningen.repl/repl project-map)
      "repl-android" (doseq [cmd ["doall" "repl"]]
                       (leiningen.droid/droid project-map cmd)
                       (Thread/sleep 10000))
      nil)))

                   (System/getProperty "java.class.path" ".")
                   namespace-name
                   cmd
                   path
                   (or args []))))

(defn stop-process
  [process]
