0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 02:28:18 -05:00

🐛 Fix initial page loading.

This commit is contained in:
Andrey Antukh 2019-07-24 13:29:07 +02:00
parent 140135317c
commit 4e382d456f
2 changed files with 10 additions and 6 deletions

View file

@ -43,9 +43,13 @@
[router path]
(let [match (rt/match router path)]
(prn "main$on-navigate" path)
(cond
#_(and (= path "") (nil? match))
#_(html-history/set-path! "/dashboard/projects")
(and (= path "") (:auth storage))
(st/emit! (rt/nav :dashboard/projects))
(and (= path "") (not (:auth storage)))
(st/emit! (rt/nav :auth/login))
(nil? match)
(prn "TODO 404 main")

View file

@ -14,10 +14,6 @@
(defonce locale (atom (get storage ::locale cfg/default-language)))
(defonce state (atom {}))
(defn set-default-locale!
[]
(set-current-locale! cfg/default-language))
(defn update-locales!
[callback]
(swap! state callback))
@ -27,6 +23,10 @@
(swap! storage assoc ::locale v)
(reset! locale v))
(defn set-default-locale!
[]
(set-current-locale! cfg/default-language))
(defn on-locale-change!
[callback]
(add-watch locale ::main (fn [_ _ old-locale new-locale]