Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 00:40:30 -05:00
Code Issues Activity

Optimize the projects/pages loading.

Browse source
This commit is contained in:
Andrey Antukh 2016-03-15 21:15:56 +02:00
parent 944ebaa8f7
commit 3353c69a51
1 changed files with 14 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/uxbox/data/projects.cljs
View file

@ -71,27 +71,34 @@
(defn load-projects
[]
(letfn [(transform [state projects]
(reduce stpr/assoc-project state projects))
(as-> state $
(reduce stpr/assoc-project $ projects)
(assoc $ ::projects-loaded true)))
(on-loaded [projects]
#(transform % projects))]
(reify
rs/WatchEvent
(-apply-watch [_ state]
(-> (rp/do :fetch/projects)
(p/then on-loaded))))))
(if (::projects-loaded state)
(rx/empty)
(-> (rp/do :fetch/projects)
(p/then on-loaded)))))))
(defn load-pages
[]
(letfn [(transform [state pages]
(reduce stpr/assoc-page state pages))
(as-> state $
(reduce stpr/assoc-page $ pages)
(assoc $ ::pages-loaded true)))
(on-loaded [pages]
#(transform % pages))]
(reify
rs/WatchEvent
(-apply-watch [_ state]
(println "load-pages")
(-> (rp/do :fetch/pages)
(p/then on-loaded))))))
(if (::pages-loaded state)
(rx/empty)
(-> (rp/do :fetch/pages)
(p/then on-loaded)))))))
(defn create-page
[{:keys [name width height project layout] :as data}]