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/maybe.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'emacs/.emacs.d/wpc/maybe.el') diff --git a/emacs/.emacs.d/wpc/maybe.el b/emacs/.emacs.d/wpc/maybe.el index dc5e9332f701..1e46b6643d51 100644 --- a/emacs/.emacs.d/wpc/maybe.el +++ b/emacs/.emacs.d/wpc/maybe.el @@ -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))))) -- cgit 1.4.1