3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-22 19:56:15 +02:00
Code Issues Projects Releases Packages Wiki Activity

Use deftype instead of defrecord in page events.

Browse source
This commit is contained in:
Andrey Antukh 2016-12-18 19:46:56 +01:00
parent 63576ae4f1
commit 569aec25ba
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -105,7 +105,7 @@
;; --- Pages Fetched ;; --- Pages Fetched
(defrecord PagesFetched [pages] (deftype PagesFetched [pages]
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(as-> state $ (as-> state $
@ -118,7 +118,7 @@
;; --- Fetch Pages (by project id) ;; --- Fetch Pages (by project id)
(defrecord FetchPages [projectid] (deftype FetchPages [projectid]
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 projectid})
@ -130,7 +130,7 @@
;; --- Page Created ;; --- Page Created
(defrecord PageCreated [data] (deftype PageCreated [data]
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(-> state (-> state
@ -147,7 +147,7 @@
;; --- Create Page ;; --- Create Page
(defrecord CreatePage [name project width height layout] (deftype CreatePage [name project width height layout]
ptk/WatchEvent ptk/WatchEvent
(watch [this state s] (watch [this state s]
(let [params {:name name (let [params {:name name
@ -164,13 +164,13 @@
(s/keys :req-un [::name ::project ::width ::height ::layout])) (s/keys :req-un [::name ::project ::width ::height ::layout]))
(defn create-page (defn create-page
[data] [{:keys [name project width height layout] :as data}]
{:pre [(us/valid? ::create-page-event data)]} {:pre [(us/valid? ::create-page-event data)]}
(map->CreatePage data)) (->CreatePage name project width height layout))
;; --- Page Persisted ;; --- Page Persisted
(defrecord PagePersisted [data] (deftype PagePersisted [data]
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
;; TODO: update only the version instead of complete unpacking ;; TODO: update only the version instead of complete unpacking
@ -191,7 +191,7 @@
;; --- Persist Page ;; --- Persist Page
(defrecord PersistPage [id] (deftype PersistPage [id]
ptk/WatchEvent ptk/WatchEvent
(watch [this state s] (watch [this state s]
(let [page (get-in state [:pages id])] (let [page (get-in state [:pages id])]
@ -212,7 +212,7 @@
;; --- Page Metadata Persisted ;; --- Page Metadata Persisted
(defrecord MetadataPersisted [id data] (deftype MetadataPersisted [id data]
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
;; TODO: page-data update ;; TODO: page-data update
@ -232,7 +232,7 @@
;; that does not sends the heavyweiht `:data` attribute ;; that does not sends the heavyweiht `:data` attribute
;; and only serves for update other page data. ;; and only serves for update other page data.
(defrecord PersistMetadata [id] (deftype PersistMetadata [id]
ptk/WatchEvent ptk/WatchEvent
(watch [_ state stream] (watch [_ state stream]
(let [page (get-in state [:pages id])] (let [page (get-in state [:pages id])]
@ -247,7 +247,7 @@
;; --- Update Page Options ;; --- Update Page Options
(defrecord UpdateMetadata [id metadata] (deftype UpdateMetadata [id metadata]
IMetadataUpdate IMetadataUpdate
ptk/UpdateEvent ptk/UpdateEvent
(update [this state] (update [this state]
@ -260,7 +260,7 @@
;; --- Update Page ;; --- Update Page
(defrecord UpdatePage [id name width height layout] (deftype UpdatePage [id name width height layout]
ptk/UpdateEvent ptk/UpdateEvent
(update [this state] (update [this state]
(-> state (-> state
@ -283,7 +283,7 @@
;; --- Delete Page (by id) ;; --- Delete Page (by id)
(defrecord DeletePage [id callback] (deftype DeletePage [id callback]
ptk/WatchEvent ptk/WatchEvent
(watch [_ state s] (watch [_ state s]
(letfn [(on-success [_] (letfn [(on-success [_]