Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-14 19:19:09 -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-page $ pages)
(reduce assoc-packed-page $ pages)))) (reduce assoc-packed-page $ pages))))
(defn pages-fetched
[pages]
{:pre [(coll? pages)]}
(PagesFetched. pages))
(defn pages-fetched? (defn pages-fetched?
[v] [v]
(instance? PagesFetched v)) (instance? PagesFetched v))
;; --- Fetch Pages (by project id) ;; --- Fetch Pages (by project id)
(deftype FetchPages [projectid] (deftype FetchPages [id]
ptk/WatchEvent ptk/WatchEvent
(watch [_ state s] (watch [_ state s]
(->> (rp/req :fetch/pages-by-project {:project projectid}) (->> (rp/req :fetch/pages-by-project {:project id})
(rx/map (comp ->PagesFetched :payload))))) (rx/map :payload)
(rx/map pages-fetched))))
(defn fetch-pages (defn fetch-pages
[projectid] [id]
(FetchPages. projectid)) {:pre [(uuid? id)]}
(FetchPages. id))
;; --- Page Created ;; --- Page Created