User identity load on first run
This commit is contained in:
parent
0da2757450
commit
6c6a4df339
|
@ -77,7 +77,7 @@
|
|||
(text {:style {:marginVertical 10
|
||||
:textAlign "center"}}
|
||||
"Sign up"))))
|
||||
(when loading
|
||||
(when (or loading (not user-identity))
|
||||
(spinner {:visible true}))))))
|
||||
|
||||
(def login (om/factory Login))
|
||||
|
|
|
@ -1,6 +1,7 @@
|
|||
(ns messenger.services.protocol
|
||||
(:require [messenger.models.protocol :refer [set-initialized
|
||||
update-identity]]
|
||||
[messenger.comm.intercom :refer [load-user-identity]]
|
||||
[syng-im.utils.logging :as log]))
|
||||
|
||||
(defmulti protocol (fn [state id args]
|
||||
|
@ -10,6 +11,7 @@
|
|||
[state id {:keys [identity] :as args}]
|
||||
(log/info "handling " id "args = " args)
|
||||
(update-identity identity)
|
||||
(load-user-identity)
|
||||
(set-initialized true))
|
||||
|
||||
(defn protocol-handler [state [id args]]
|
||||
|
|
Loading…
Reference in New Issue