Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-12 18:18:24 -05:00
Code Issues Activity

Minor cosmetic changes on pages data events.

Browse source
This commit is contained in:
Andrey Antukh 2017-01-17 20:39:42 +01:00
parent e97b4b8374
commit 922a2494ed
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
frontend/src/uxbox/main/data/pages.cljs
View file

@ -134,21 +134,28 @@
(reduce assoc-page $ pages)
(reduce assoc-packed-page $ pages))))
(defn pages-fetched
[pages]
{:pre [(coll? pages)]}
(PagesFetched. pages))
(defn pages-fetched?
[v]
(instance? PagesFetched v))
;; --- Fetch Pages (by project id)
(deftype FetchPages [projectid]
(deftype FetchPages [id]
ptk/WatchEvent
(watch [_ state s]
(->> (rp/req :fetch/pages-by-project {:project projectid})
(rx/map (comp ->PagesFetched :payload)))))
(->> (rp/req :fetch/pages-by-project {:project id})
(rx/map :payload)
(rx/map pages-fetched))))
(defn fetch-pages
[projectid]
(FetchPages. projectid))
[id]
{:pre [(uuid? id)]}
(FetchPages. id))
;; --- Page Created