User identity load on first run

This commit is contained in:
virvar 2016-03-19 11:53:09 +03:00
parent 0da2757450
commit 6c6a4df339
2 changed files with 3 additions and 1 deletions

View File

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

View File

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