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