 
 (defonce class-name (str *ns*))
 
-(defn start-slow-process
+(defn start-self-process
   [process path & args]
   (let [project-map (read-project-clj path)
         java-cmd (or (:java-cmd project-map) (System/getenv "JAVA_CMD") "java")

  [process in out path]
  (stop-process process)
  (->> (do (println (utils/get-string :running))
         (if (is-clojurescript-project? path)
           (start-slow-process process path class-name "run")
           (start-fast-process process path run-project-task)))
       (start-thread in out)))

(defn run-repl-project
  [process in out path]
  (stop-process process)
  (->> (do (println (utils/get-string :running_with_repl))
         (start-slow-process process path class-name "repl"))
       (start-thread in out)))

(defn build-project
  [process in out path]
  (stop-process process)
  (->> (do (println (utils/get-string :building))
         (if (is-clojurescript-project? path)
           (start-slow-process process path class-name "build")
           (start-fast-process process path build-project-task)))
       (start-thread in out)))

(defn test-project
  [process in out path]
  (stop-process process)
  (->> (do (println (utils/get-string :testing))
         (if (is-clojurescript-project? path)
           (start-slow-process process path class-name "test")
           (start-fast-process process path test-project-task)))
       (start-thread in out)))

(defn clean-project
  [process in out path]
  (stop-process process)
  (->> (do (println (utils/get-string :cleaning))
         (if (is-clojurescript-project? path)
           (start-slow-process process path class-name "clean")
           (start-fast-process process path clean-project-task)))
       (start-thread in out)))

(defn new-project

                     (.getCanonicalPath jar-file))
                   args)))

(defn stop-process
  [process]
  (when @process
