Improve custom figwheel script usability

Signed-off-by: Dmitry Novotochinov <trybeee@gmail.com>

env/dev/figwheel_api.clj

@@ -45,28 +45,31 @@
         :id id))
     ids))
 
-(defn start-cljs-repl []
+(defn start
-  (hawk/watch! [{:paths   ["resources"]
+  ([]
-                 :handler (fn [ctx e]
+   (start (if *command-line-args*
-                            (let [path "src/status_im/utils/js_resources.cljs"
+            (map keyword *command-line-args*)
-                                  js-resourced (slurp path)]
+            [:android])))
-                              (spit path (str js-resourced " ;;"))
+  ([build-ids]
-                              (spit path js-resourced))
+   (hawk/watch! [{:paths   ["resources"]
-                            ctx)}])
+                  :handler (fn [ctx e]
-  (let [build-ids (if *command-line-args*
+                             (let [path "src/status_im/utils/js_resources.cljs"
-                    (map keyword *command-line-args*)
+                                   js-resourced (slurp path)]
-                    [:android])
+                               (spit path (str js-resourced " ;;"))
-        ;; read project.clj to get build configs
+                               (spit path js-resourced))
-        profiles (->> "project.clj"
+                             ctx)}])
-                      slurp
+   ;; read project.clj to get build configs
-                      read-string
+   (let [profiles (->> "project.clj"
-                      (drop-while #(not= % :profiles))
+                       slurp
-                      (apply hash-map)
+                       read-string
-                      :profiles)
+                       (drop-while #(not= % :profiles))
-        cljs-builds (get-in profiles [:dev :cljsbuild :builds])
+                       (apply hash-map)
-        builds (get-builds build-ids cljs-builds)]
+                       :profiles)
-    (start-figwheel build-ids builds)
+         cljs-builds (get-in profiles [:dev :cljsbuild :builds])
-    (rfs/-main))
+         builds (get-builds build-ids cljs-builds)]
-  (ra/cljs-repl))
+     (start-figwheel build-ids builds)
+     (rfs/-main))))
 
-(start-cljs-repl)
+(def stop ra/stop-figwheel!)
+
+(def start-cljs-repl ra/cljs-repl)

env/dev/run.clj

@@ -0,0 +1,5 @@
+(ns dev-run
+  (:use [figwheel-api]))
+
+(start)
+(start-cljs-repl)

project.clj

@@ -19,7 +19,7 @@
             ["do" "clean"
              ["with-profile" "prod" "cljsbuild" "once" "ios"]
              ["with-profile" "prod" "cljsbuild" "once" "android"]]
-            "figwheel-repl"    ["run" "-m" "clojure.main" "env/dev/figwheel_api.clj"]
+            "figwheel-repl"    ["run" "-m" "clojure.main" "env/dev/run.clj"]
             "test-cljs"        ["with-profile" "test" "doo" "node" "test" "once"]
             "test-protocol"    ["with-profile" "test" "doo" "node" "protocol" "once"]}
   :figwheel {:nrepl-port 7888}