Use the new low level API for non-pure handlers.

This commit is contained in:
mike-thompson-day8 2015-03-05 11:31:02 +11:00
parent 88ad167002
commit 3b8643cc01

View File

@ -62,8 +62,8 @@
;; -- event handlers ----------------------------------------------------------------------------
(handlers/register ;; not pure
:undo ;; usage: (dispatch [:undo])
(handlers/register-base ;; not a pure handler
:undo ;; usage: (dispatch [:undo])
(fn handler
[_ _]
(when (undos?)
@ -72,8 +72,8 @@
(reset! undo-list (pop @undo-list)))))
(handlers/register ;; not pure
:redo ;; usage: (dispatch [:redo])
(handlers/register-base ;; not a pure handler
:redo ;; usage: (dispatch [:redo])
(fn handler
[_ _]
(when (redos?)