   udp/IPageUpdate
   ptk/UpdateEvent
   (update [_ state]
-    (let [page-id (get-in state [:workspace :page])
+    #_(let [page-id (get-in state [:workspace :page])
           undo-state (get-in state [:undo page-id])
           stack (:stack undo-state)
           selected (:selected undo-state)]

(defrecord SaveUndoEntry [id]
  ptk/UpdateEvent
  (update [_ state]
    (let [page (udp/pack-page state id)
          undo {:data (:data page)
                :metadata (:metadata page)}]
      (-> state

(deftype WatchPageChanges [id]
  ptk/WatchEvent
  (watch [_ state stream]
    nil
    #_(let [stopper (->> stream
                       (rx/filter #(= % ::udp/stop-page-watcher))
                       (rx/take 1))]
      (->> stream
