about summary refs log tree commit diff
path: root/emacs/.emacs.d/wpc/cycle.el
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2020-08-31T13·59+0100
committerWilliam Carroll <wpcarro@gmail.com>2020-08-31T13·59+0100
commita35f723d9271c081318fe463cd6fc51757d8cb0f (patch)
treeca57e41d3ec34a5b7be164793babd9f00c7d9c78 /emacs/.emacs.d/wpc/cycle.el
parent1c87082648c6d265bddaf160f858f14240db739d (diff)
Lint maybe.el
This change had rippling implications.
Diffstat (limited to 'emacs/.emacs.d/wpc/cycle.el')
-rw-r--r--emacs/.emacs.d/wpc/cycle.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/emacs/.emacs.d/wpc/cycle.el b/emacs/.emacs.d/wpc/cycle.el
index 9ec6ecd2fbc8..df9c49b5dc80 100644
--- a/emacs/.emacs.d/wpc/cycle.el
+++ b/emacs/.emacs.d/wpc/cycle.el
@@ -73,7 +73,7 @@
 (defun cycle/previous-focus (cycle)
   "Return the previously focused entry in CYCLE."
   (let ((i (cycle-previous-index cycle)))
-    (if (maybe/some? i)
+    (if (maybe-some? i)
         (nth i (cycle-xs cycle))
       nil)))
 
@@ -84,7 +84,7 @@
 This will error when previous-index is nil.  This function mutates the
 underlying struct."
   (let ((i (cycle-previous-index xs)))
-    (if (maybe/some? i)
+    (if (maybe-some? i)
         (progn
           (cycle/jump i xs)
           (cycle/current xs))
@@ -148,7 +148,7 @@ ITEM is the first item in XS that t for `equal'."
 
 (defun cycle/focused? (xs)
   "Return t if cycle XS has a non-nil value for current-index."
-  (maybe/some? (cycle-current-index xs)))
+  (maybe-some? (cycle-current-index xs)))
 
 (defun cycle/append (x xs)
   "Add X to the left of the focused element in XS.
@@ -196,7 +196,7 @@ 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 (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)))