 
 ;; --- Persist Page
 
-(defrecord PersistPage [id]
+(deftype PersistPage [id]
   ptk/WatchEvent
   (watch [this state s]
     (let [page (get-in state [:pages id])]


;; --- Page Metadata Persisted

(defrecord MetadataPersisted [id data]
  ptk/UpdateEvent
  (update [_ state]
    ;; TODO: page-data update


;; --- Delete Page (by id)

(deftype DeletePage [id callback]
  ptk/WatchEvent
  (watch [_ state s]
    (letfn [(on-success [_]
