   [path]
   (-> path read-project-clj :gwt some?))
 
+(defn clr-project?
+  [path]
+  (-> path read-project-clj :clr some?))
+
 (defn valid-project?
   [path]
   (or (not (sandbox/get-dir))

        (leiningen.droid/execute-subtask project cmd [])))
    (ios-project? path)
    (leiningen.fruit/fruit project "doall")
    (:clr project)
    (leiningen.clr/clr project "run")
    :else
    (leiningen.run/run project)))

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