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/irc.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/irc.el')
| -rw-r--r-- | emacs/.emacs.d/wpc/irc.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/.emacs.d/wpc/irc.el b/emacs/.emacs.d/wpc/irc.el index ce0e5ffcb952..1787c8566f17 100644 --- a/emacs/.emacs.d/wpc/irc.el +++ b/emacs/.emacs.d/wpc/irc.el @@ -45,7 +45,7 @@ ;; TODO: Assert that no two servers have a channel with the same name. We need ;; this because that's the assumption that underpins the `irc/channel->server' ;; function. This will probably be an O(n^2) operation. -(prelude/assert +(prelude-assert (set/distinct? (set/from-list (cycle/to-list (alist/get "irc.freenode.net" @@ -59,7 +59,7 @@ "Resolve an IRC server from a given CHANNEL." (let ((result (alist/find (lambda (k v) (cycle/contains? channel v)) server->channels))) - (prelude/assert (maybe-some? result)) + (prelude-assert (maybe-some? result)) result)) (defun irc/channel->cycle (server->channels channel) @@ -166,7 +166,7 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (when irc/enable-tests? - (prelude/assert + (prelude-assert (equal (irc/channel->server `(("irc.dairy.com" . ,(cycle/new "#cheese" "#milk")) ("irc.color.com" . ,(cycle/new "#red" "#blue"))) |