36 lines
1006 B
Clojure
36 lines
1006 B
Clojure
(ns auto-ap.core
|
|
(:require [reagent.core :as reagent]
|
|
[re-frame.core :as re-frame]
|
|
[auto-ap.events :as events]
|
|
[auto-ap.views.main :refer [page active-page] ]
|
|
|
|
[auto-ap.config :as config]
|
|
[auto-ap.effects :as effects]
|
|
[pushy.core :as pushy]
|
|
[auto-ap.history :as p]
|
|
[bidi.bidi :as bidi]))
|
|
|
|
(defn dev-setup []
|
|
(when true
|
|
(enable-console-print!)
|
|
(println "dev mode")))
|
|
|
|
(defn mount-root []
|
|
(re-frame/clear-subscription-cache!)
|
|
(reagent/render [active-page]
|
|
(.getElementById js/document "app")))
|
|
|
|
(defn ^:export init []
|
|
(dev-setup)
|
|
|
|
(if-let [jwt (.get (js/URLSearchParams. (.-search (.-location js/window))) "jwt")]
|
|
(do
|
|
(.setItem js/localStorage "jwt" jwt)
|
|
(re-frame/dispatch-sync [::events/initialize-db jwt]))
|
|
(do
|
|
(re-frame/dispatch-sync [::events/initialize-db (.getItem js/localStorage "jwt")])))
|
|
(pushy/start! p/history)
|
|
(mount-root))
|
|
|
|
|