Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 08:20:45 -05:00
Code Issues Activity

Fixed an other bug related to auth data management.

Browse source
This commit is contained in:
Andrey Antukh 2016-02-24 18:01:22 +02:00
parent 4215429944
commit 1b2a75ab25
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
src/uxbox/data/load.cljs
View file

@ -37,11 +37,11 @@
projects (into #{} (vals (:projects-by-id state)))
shapes (into #{} (vals (:shapes-by-id state)))
color-colls (into #{} (vals (:colors-by-id state)))]
(assoc! local-storage :data {:pages pages
:auth (:auth state)
:shapes shapes
:projects projects
:color-collections color-colls})))
(assoc! local-storage ::auth (:auth state))
(assoc! local-storage ::data {:pages pages
:shapes shapes
:projects projects
:color-collections color-colls})))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Events
@ -53,12 +53,14 @@
(reify
rs/UpdateEvent
(-apply-update [_ state]
(if-let [data (get local-storage :data nil)]
(as-> state $
(reduce stpr/assoc-project $ (:projects data))
(reduce stpr/assoc-page $ (:pages data))
(reduce assoc-color $ (:color-collections data))
(reduce assoc-shape $ (:shapes data))
(assoc $ :auth (:auth data)))
state))))
(let [auth (::auth local-storage)
data (::data local-storage)
state (assoc state :auth auth)]
(if data
(as-> state $
(reduce stpr/assoc-project $ (:projects data))
(reduce stpr/assoc-page $ (:pages data))
(reduce assoc-color $ (:color-collections data))
(reduce assoc-shape $ (:shapes data)))
state)))))