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

20
emacs/.emacs.d/wpc/maybe.el
View file

@ -82,23 +82,23 @@
(when maybe--run-tests?
;; nil?
(prelude/assert (maybe-nil? nil))
(prelude/refute (maybe-nil? t))
(prelude-assert (maybe-nil? nil))
(prelude-refute (maybe-nil? t))
;; some?
(prelude/assert (maybe-some? 10))
(prelude/refute (maybe-some? nil))
(prelude-assert (maybe-some? 10))
(prelude-refute (maybe-some? nil))
;; nils?
(prelude/assert (maybe-nils? nil nil nil nil))
(prelude/refute (maybe-nils? nil t nil t))
(prelude-assert (maybe-nils? nil nil nil nil))
(prelude-refute (maybe-nils? nil t nil t))
;; somes?
(prelude/assert (maybe-somes? t 10 '(1 2 3) "some"))
(prelude/refute (maybe-somes? t nil '(1 2 3) "some"))
(prelude-assert (maybe-somes? t 10 '(1 2 3) "some"))
(prelude-refute (maybe-somes? t nil '(1 2 3) "some"))
;; default
(prelude/assert
(prelude-assert
(and (= 0 (maybe-default 5 0))
(= 5 (maybe-default 5 nil))))
;; map
(prelude/assert
(prelude-assert
(and (= 2 (maybe-map #'1+ 1))
(eq nil (maybe-map #'1+ nil)))))