enhance: bottom bar to show undo mode

This commit is contained in:
Tienson Qin
2023-04-06 23:37:42 +08:00
parent e04ec1dd08
commit 6f1237a8b5
6 changed files with 52 additions and 14 deletions

View File

@@ -44,7 +44,8 @@
(when-let [id (if (= :undo action)
(get-page-from-block @(get-undo-stack))
(get-page-from-block @(get-redo-stack)))]
(swap! state/state assoc :history/page id))))
(swap! state/state assoc :history/page id)
id)))
(defn push-undo
[txs]
@@ -218,6 +219,17 @@
(state/pub-event! [:whiteboard/redo e]))
(assoc e :txs-op new-txs))))
(defn toggle-undo-redo-mode!
[]
(if (:history/page-only-mode? @state/state)
(swap! state/state assoc
:history/page-only-mode? false
:history/page nil)
(when-let [page-id (get-history-page :undo)]
(swap! state/state assoc
:history/page-only-mode? true
:history/page page-id))))
(defn pause-listener!
[]
(reset! *pause-listener true))