3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-27 03:47:26 +02:00
Code Issues Projects Releases Packages Wiki Activity

Redirect to dashboad when logged user enters to login page.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-26 19:45:26 +03:00
parent 483043202a
commit 468f6a27e1
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
5 changed files with 51 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/uxbox/ui.cljs
View file

@ -11,7 +11,7 @@
[goog.dom :as gdom]
[rum.core :as rum]
[lentes.core :as l]
[uxbox.state :as s]
[uxbox.state :as st]
[uxbox.router :as r]
[uxbox.rstore :as rs]
[uxbox.data.projects :as dp]
@ -25,16 +25,6 @@
[uxbox.ui.mixins :as mx]
[uxbox.ui.shapes]))
;; --- Lentes
(def ^:const auth-data-l
(-> (l/key :auth)
(l/focus-atom s/state)))
(def ^:const loader-l
(-> (l/key :loader)
(l/focus-atom s/state)))
;; --- Constants
(def ^:const +unrestricted+ #{:auth/login})
@ -45,7 +35,7 @@
(defn app-render
[own]
(let [route (rum/react r/route-l)
auth (rum/react auth-data-l)
auth (rum/react st/auth-l)
location (:id route)
params (:params route)]
(if (and (restricted? location) (not auth))
@ -67,7 +57,7 @@
(defn app-will-mount
[own]
(when @auth-data-l
(when @st/auth-l
(rs/emit! (udu/fetch-profile)))
own)
@ -82,7 +72,7 @@
(defn loader-render
[own]
(when (rum/react loader-l)
(when (rum/react st/loader-l)
(html
[:div.loader-content i/loader])))