fix undo/redo

repath-project · Feb 29, 2024 · b2fbe39 · b2fbe39
1 parent 87e1651
commit b2fbe39
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/renderer/history/handlers.cljs b/src/renderer/history/handlers.cljs
@@ -60,16 +60,16 @@
   ([db]
    (undo db 1))
   ([db n]
-   (if (and (pos? n) (undos? db))
-     (recur (move db (previous-position db)) (dec n))
+   (if (and (pos? n) (undos? (history db)))
+     (recur (move db (previous-position (history db))) (dec n))
      db)))
 
 (defn redo
   ([db]
    (redo db 1))
   ([db n]
-   (if (and (pos? n) (redos? db))
-     (recur (move db (next-position db)) (dec n))
+   (if (and (pos? n) (redos? (history db)))
+     (recur (move db (next-position (history db))) (dec n))
      db)))
 
 (defn accumulate