diff options
author | William Carroll <wpcarro@gmail.com> | 2020-08-31T16·05+0100 |
---|---|---|
committer | William Carroll <wpcarro@gmail.com> | 2020-08-31T16·08+0100 |
commit | ff8277625f43c1354b63333090f72c277c1f43f8 (patch) | |
tree | 901594d4fee2031477ae7821f5bc9ef40474232a /emacs/.emacs.d/wpc/cycle.el | |
parent | 5d3bb0b7eadc9efc423eb7ef8857fa6df256d254 (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.el | 26 |
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 |