🐛 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

@ -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]