Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-03 21:09:00 -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))) projects (into #{} (vals (:projects-by-id state)))
shapes (into #{} (vals (:shapes-by-id state))) shapes (into #{} (vals (:shapes-by-id state)))
color-colls (into #{} (vals (:colors-by-id state)))] color-colls (into #{} (vals (:colors-by-id state)))]
(assoc! local-storage :data {:pages pages (assoc! local-storage ::auth (:auth state))
:auth (:auth state) (assoc! local-storage ::data {:pages pages
:shapes shapes :shapes shapes
:projects projects :projects projects
:color-collections color-colls}))) :color-collections color-colls})))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Events ;; Events
@ -53,12 +53,14 @@
(reify (reify
rs/UpdateEvent rs/UpdateEvent
(-apply-update [_ state] (-apply-update [_ state]
(if-let [data (get local-storage :data nil)] (let [auth (::auth local-storage)
(as-> state $ data (::data local-storage)
(reduce stpr/assoc-project $ (:projects data)) state (assoc state :auth auth)]
(reduce stpr/assoc-page $ (:pages data)) (if data
(reduce assoc-color $ (:color-collections data)) (as-> state $
(reduce assoc-shape $ (:shapes data)) (reduce stpr/assoc-project $ (:projects data))
(assoc $ :auth (:auth data))) (reduce stpr/assoc-page $ (:pages data))
state)))) (reduce assoc-color $ (:color-collections data))
(reduce assoc-shape $ (:shapes data)))
state)))))