   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 0)]

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

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