Add the ability to deactivate the function name mungling.

frontend/project.clj

@@ -14,8 +14,9 @@
 
                  ;; Build
                  [figwheel-sidecar "0.5.8" :scope "test"]
+                 [environ "1.1.0"]
 
-                 ;; runtime
+                 ;; Runtime
                  [com.cognitect/transit-cljs "0.8.239"]
                  [rum "0.10.8" :exclusions [cljsjs/react cljsjs/react-dom]]
                  ;; [cljsjs/react-with-addons "15.4.2-1"]

frontend/scripts/dist-main.clj

@@ -1,24 +1,33 @@
 (require '[cljs.build.api :as b])
+(require '[environ.core :refer [env]])
 
-(println "Building ...")
+(def debug?
+  (boolean (:uxbox-debug env nil)))
+
+(def defines
+  {"uxbox.config.url" "/api"
+   "uxbox.config.viewurl" "/view/"})
+
+(def options
+  {:main 'uxbox.main
+   :parallel-build false
+   :output-to "dist/js/main.js"
+   :source-map "dist/js/main.js.map"
+   :output-dir "dist/js/main"
+   :externs ["externs/main.js"]
+   :closure-defines defines
+   :language-in  :ecmascript6
+   :language-out :ecmascript5
+   :optimizations :advanced
+   :cache-analysis false
+   :static-fns true
+   :elide-asserts true
+   :pretty-print debug?
+   :verbose true
+   :pseudo-names debug?
+   :compiler-stats true})
 
 (let [start (System/nanoTime)]
-  (b/build
+  (println "Building ...")
-   (b/inputs "src")
+  (b/build (b/inputs "src") options)
-   {:main 'uxbox.main
-    :parallel-build false
-    :output-to "dist/js/main.js"
-    :source-map "dist/js/main.js.map"
-    :output-dir "dist/js/main"
-    :closure-defines {"uxbox.config.url" "/api"
-                      "uxbox.config.viewurl" "/view/"}
-    :optimizations :advanced
-    :cache-analysis false
-    :externs ["externs/main.js"]
-    :static-fns true
-    :elide-asserts true
-    :pretty-print false
-    :language-in  :ecmascript6
-    :language-out :ecmascript5
-    :verbose true})
   (println "... done. Elapsed" (/ (- (System/nanoTime) start) 1e9) "seconds"))

frontend/scripts/dist-view.clj

@@ -1,24 +1,33 @@
 (require '[cljs.build.api :as b])
+(require '[environ.core :refer [env]])
 
-(println "Building ...")
+(def debug?
+  (boolean (:uxbox-debug env nil)))
+
+(def defines
+  {"uxbox.config.url" "/api"
+   "uxbox.config.viewurl" "/view/"})
+
+(def options
+  {:main 'uxbox.view
+   :parallel-build false
+   :output-to "dist/js/view.js"
+   :source-map "dist/js/view.js.map"
+   :output-dir "dist/js/view"
+   :externs ["externs/main.js"]
+   :closure-defines defines
+   :language-in  :ecmascript6
+   :language-out :ecmascript5
+   :optimizations :advanced
+   :cache-analysis false
+   :static-fns true
+   :elide-asserts true
+   :pretty-print debug?
+   :verbose true
+   :pseudo-names debug?
+   :compiler-stats true})
 
 (let [start (System/nanoTime)]
-  (b/build
+  (println "Building ...")
-   (b/inputs "src")
+  (b/build (b/inputs "src") options)
-   {:main 'uxbox.view
-    :parallel-build false
-    :output-to "dist/js/view.js"
-    :source-map "dist/js/view.js.map"
-    :output-dir "dist/js/view/"
-    :closure-defines {"uxbox.config.url" "/api"
-                      "uxbox.config.viewurl" "/view/"}
-    :optimizations :simple
-    :cache-analysis false
-    :externs ["externs/main.js"]
-    :static-fns true
-    :elide-asserts true
-    :pretty-print false
-    :language-in  :ecmascript6
-    :language-out :ecmascript5
-    :verbose true})
   (println "... done. Elapsed" (/ (- (System/nanoTime) start) 1e9) "seconds"))

frontend/scripts/dist-worker.clj

@@ -1,21 +1,28 @@
 (require '[cljs.build.api :as b])
+(require '[environ.core :refer [env]])
 
-(println "Building ...")
+(def debug?
+  (boolean (:uxbox-debug env nil)))
+
+(def options
+  {:main 'uxbox.worker
+   :parallel-build false
+   :output-to "dist/js/worker.js"
+   :source-map "dist/js/worker.js.map"
+   :output-dir "dist/js/worker"
+   :externs ["externs/main.js"]
+   :language-in  :ecmascript6
+   :language-out :ecmascript5
+   :optimizations :advanced
+   :cache-analysis false
+   :static-fns true
+   :elide-asserts true
+   :pretty-print debug?
+   :verbose true
+   :pseudo-names debug?
+   :compiler-stats true})
 
 (let [start (System/nanoTime)]
-  (b/build
+  (println "Building ...")
-   (b/inputs "src")
+  (b/build (b/inputs "src") options)
-   {:main 'uxbox.worker
-    :output-to "dist/js/worker.js"
-    :source-map "dist/js/worker.js.map"
-    :output-dir "dist/js/worker"
-    :asset-path "js"
-    :parallel-build true
-    :optimizations :advanced
-    :cache-analysis false
-    :static-fns true
-    :pretty-print false
-    :language-in  :ecmascript6
-    :language-out :ecmascript5
-    :verbose true})
   (println "... done. Elapsed" (/ (- (System/nanoTime) start) 1e9) "seconds"))