 
 ; utilities
 
-(defn java-project-map?
-  [project]
-  (or (:java-only project)
-      (= (count (:source-paths project)) 0)
-      (clojure.set/subset? (set (:source-paths project))
-                           (set (:java-source-paths project)))))
-
 (defn read-file
   [path]
   (let [length (.length (io/file path))]

  [path]
  (-> path read-project-clj :clr some?))

(defn ring-project?
  [path]
  (let [{:keys [ring main]} (read-project-clj path)]
    (and (some? ring) (nil? main))))

(defn valid-project?
  [path]
  (and (not (ios-project? path))
       (or (not (android-project? path))
           (not (sandbox/get-dir)))))

; start/stop thread/processes


(defn clean-project-task
  [path project]
  (cond
    (:clr project)
    (leiningen.clr/clr project "clean")
    :else
    (leiningen.clean/clean project)))
