From ff8277625f43c1354b63333090f72c277c1f43f8 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 31 Aug 2020 17:05:31 +0100 Subject: 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! --- emacs/.emacs.d/wpc/cycle.el | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'emacs/.emacs.d/wpc/cycle.el') 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 -- cgit 1.4.1