 
 ;; --- 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


;; --- Pages Fetched

(deftype PagesFetched [pages]
  ptk/UpdateEvent
  (update [_ state]
    (as-> state $
