(require '[clojure.java.shell :as shell])
(require '[figwheel.main.api :as figwheel])
(require '[cljs.build.api :as api])
(require '[environ.core :refer [env]])

(defmulti task first)

(defmethod task :default
  [args]
  (let [all-tasks  (-> task methods (dissoc :default) keys sort)
        interposed (->> all-tasks (interpose ", ") (apply str))]
    (println "Unknown or missing task. Choose one of:" interposed)
    (System/exit 1)))

(def debug? (boolean (:uxbox-debug env nil)))
(def demo? (boolean (:uxbox-demo env nil)))

(def closure-defines
  {"uxbox.config.url" (:uxbox-api-url env "http://localhost:6060/api")
   "uxbox.config.viewurl" (:uxbox-view-url env "/view/index.html")
   "uxbox.config.isdemo" demo?})

(def default-build-options
  {:cache-analysis true
   :parallel-build true
   :language-in  :ecmascript6
   :language-out :ecmascript6
   :closure-defines closure-defines
   :optimizations :none
   :verbose false
   :static-fns false
   :pretty-print true
   :elide-asserts false})

(defn get-output-options
  [name dist? map?]
  (let [prefix (if dist? "dist/js" "resources/public/js")
        srcmap (if (= map? ::path)
                 (str prefix "/" name ".js.map")
                 map?)]
    {:main (symbol (str "uxbox." name))
     :output-to (str prefix "/" name ".js")
     :output-dir (str prefix "/" name)
     :source-map srcmap
     :asset-path (str "/js/" name)}))

(defmethod task "dist"
  [[_ name]]
  (api/build (api/inputs "src")
             (merge default-build-options
                    (get-output-options name true ::path)
                    {:optimizations :advanced
                     :static-fns true
                     :elide-asserts true})))

(defmethod task "build"
  [[_ name]]
  (api/build (api/inputs "src")
             (merge default-build-options
                    (get-output-options name false ::path)
                    {:optimizations :simple})))

(defmethod task "build-tests"
  [& args]
  (api/build (api/inputs "src" "test")
             (assoc default-build-options
                    :main 'uxbox.tests.main
                    :verbose true
                    :target :nodejs
                    :source-map true
                    :output-to "target/tests/main.js"
                    :output-dir "target/tests/main"
                    :optimizations :none)))

(defmethod task "figwheel"
  [args]
  (figwheel/start
   {:open-url false
    :load-warninged-code true
    :auto-testing false
    :css-dirs ["resources/public/css"
               "resources/public/view/css"]
    :ring-server-options {:port 3449 :host "0.0.0.0"}
    :watch-dirs ["src" "test"]}
   {:id "main"
    :options (merge default-build-options
                    (get-output-options "main" false true))}
   {:id "view"
    :options (merge default-build-options
                    (get-output-options "view" false true))}
   {:id "worker"
    :options (merge default-build-options
                    {:target :webworker}
                    (get-output-options "worker" false true))}))

;;; Build script entrypoint. This should be the last expression.

(task *command-line-args*)