mirror of
https://github.com/penpot/penpot.git
synced 2025-01-10 08:50:57 -05:00
28 lines
844 B
Text
28 lines
844 B
Text
|
(ns uxbox.data.load
|
||
|
|
(:require [hodgepodge.core :refer [local-storage]]
|
||
|
|
[uxbox.rstore :as rs]
|
||
|
|
[uxbox.router :as r]
|
||
|
|
[uxbox.state :as st]
|
||
|
|
[uxbox.schema :as sc]
|
||
|
|
[uxbox.data.projects :as dp]
|
||
|
|
[bouncer.validators :as v]))
|
||
|
|
|
||
|
|
(defn load-data
|
||
|
|
"Load data from local storage."
|
||
|
|
[]
|
||
|
|
(reify
|
||
|
|
rs/UpdateEvent
|
||
|
|
(-apply-update [_ state]
|
||
|
|
(if-let [data (get local-storage :data nil)]
|
||
|
|
(as-> state $
|
||
|
|
(reduce dp/assoc-project $ (:projects data))
|
||
|
|
(reduce dp/assoc-page $ (:pages data)))
|
||
|
|
state))))
|
||
|
|
|
||
|
|
(defn persist-state
|
||
|
|
[state]
|
||
|
|
(let [pages (into #{} (vals (:pages-by-id state)))
|
||
|
|
projects (into #{} (vals (:projects-by-id state)))]
|
||
|
|
(assoc! local-storage :data {:pages pages
|
||
|
|
:projects projects})))
|