maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Lint prelude.el

Browse source 
This was a doozey because I use it everywhere. Is there a better way to globally
rename things? Aye aye aye... computers, man!
This commit is contained in:
William Carroll 2020-08-31 17:05:31 +01:00
parent 5d3bb0b7ea
commit ff8277625f
29 changed files with 163 additions and 164 deletions
Download patch file Download diff file Expand all files Collapse all files

26
emacs/.emacs.d/wpc/cycle.el
View file

@ -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