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

Properly use projects fetched event after fetch projects event.

Browse source
This commit is contained in:
Andrey Antukh 2016-04-16 13:43:21 +03:00
parent 034c26fed4
commit b148de7fc0
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -27,15 +27,18 @@
[projects] [projects]
(ProjectsFetched. projects)) (ProjectsFetched. projects))
(defn projects-fetched?
[v]
(instance? ProjectsFetched v))
;; --- Fetch Projects ;; --- Fetch Projects
(defrecord FetchProjects [] (defrecord FetchProjects []
rs/WatchEvent rs/WatchEvent
(-apply-watch [_ state s] (-apply-watch [_ state s]
(letfn [(on-loaded [{projects :payload}]
#(reduce stpr/assoc-project % projects))]
(->> (rp/req :fetch/projects) (->> (rp/req :fetch/projects)
(rx/map on-loaded))))) (rx/map :payload)
(rx/map projects-fetched))))
(defn fetch-projects (defn fetch-projects
[] []