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

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

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