about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/cycle.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-31T16·05+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-31T16·08+0100
commitff8277625f43c1354b63333090f72c277c1f43f8 (patch)
tree901594d4fee2031477ae7821f5bc9ef40474232a /emacs/.emacs.d/wpc/cycle.el
parent5d3bb0b7eadc9efc423eb7ef8857fa6df256d254 (diff)
Lint prelude.el
This was a doozey because I use it everywhere. Is there a better way to globally
rename things? Aye aye aye... computers, man!
Diffstat (limited to 'emacs/.emacs.d/wpc/cycle.el')
-rw-r--r--emacs/.emacs.d/wpc/cycle.el26
1 files changed, 13 insertions, 13 deletions
diff --git a/emacs/.emacs.d/wpc/cycle.el b/emacs/.emacs.d/wpc/cycle.el
index df9c49b5dc80..5a3a50006ae9 100644
--- a/emacs/.emacs.d/wpc/cycle.el
+++ b/emacs/.emacs.d/wpc/cycle.el
@@ -196,23 +196,23 @@ If X is the currently focused value, after it's deleted, current-index will be
 
 (when cycle/enable-tests?
   (let ((xs (cycle/new 1 2 3)))
-    (prelude/assert (maybe-nil? (cycle/previous-focus xs)))
-    (prelude/assert (= 1 (cycle/current xs)))
-    (prelude/assert (= 2 (cycle/next xs)))
-    (prelude/assert (= 1 (cycle/previous-focus xs)))
-    (prelude/assert (= 1 (->> xs (cycle/jump 0) cycle/current)))
-    (prelude/assert (= 2 (->> xs (cycle/jump 1) cycle/current)))
-    (prelude/assert (= 3 (->> xs (cycle/jump 2) cycle/current)))
-    (prelude/assert (= 2 (cycle/previous-focus xs)))
-    (prelude/assert (= 2 (cycle/focus-previous! xs)))
-    (prelude/assert (equal '(1 4 2 3) (cycle-xs (cycle/append 4 xs))))
-    (prelude/assert (equal '(1 2 3) (cycle-xs (cycle/remove 4 xs))))
+    (prelude-assert (maybe-nil? (cycle/previous-focus xs)))
+    (prelude-assert (= 1 (cycle/current xs)))
+    (prelude-assert (= 2 (cycle/next xs)))
+    (prelude-assert (= 1 (cycle/previous-focus xs)))
+    (prelude-assert (= 1 (->> xs (cycle/jump 0) cycle/current)))
+    (prelude-assert (= 2 (->> xs (cycle/jump 1) cycle/current)))
+    (prelude-assert (= 3 (->> xs (cycle/jump 2) cycle/current)))
+    (prelude-assert (= 2 (cycle/previous-focus xs)))
+    (prelude-assert (= 2 (cycle/focus-previous! xs)))
+    (prelude-assert (equal '(1 4 2 3) (cycle-xs (cycle/append 4 xs))))
+    (prelude-assert (equal '(1 2 3) (cycle-xs (cycle/remove 4 xs))))
     (progn
       (cycle/focus-item 3 xs)
       (cycle/focus-item 2 xs)
       (cycle/remove 1 xs)
-      (prelude/assert (= 2 (cycle/current xs)))
-      (prelude/assert (= 3 (cycle/previous-focus xs))))))
+      (prelude-assert (= 2 (cycle/current xs)))
+      (prelude-assert (= 3 (cycle/previous-focus xs))))))
 
 (provide 'cycle)
 ;;; cycle.el ends here