about summary refs log tree commit diff
path: root/users/wpcarro/emacs/pkgs/cycle
diff options
context:
space:
mode:
authorWilliam Carroll <wpcarro@gmail.com>2022-08-02T19·47-0700
committerclbot <clbot@tvl.fyi>2022-08-02T20·31+0000
commit9d475c5b9b037389abed5ab68f15fa34bd67a567 (patch)
tree32f1e3ec89cb7415f17c06593b0dc888be51df78 /users/wpcarro/emacs/pkgs/cycle
parent6c1ca20a62fca0e62f41b7f26964c0f40432835e (diff)
refactor(wpcarro/emacs): Remove cycle.el dep on list.el r/4369
Cleaning-up the dependency graph before (maybe) publishing this to MELPA.

Change-Id: Ic30c5e155621d57f0fd3ec30ef6c9e4ab14aba3e
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6026
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
Diffstat (limited to 'users/wpcarro/emacs/pkgs/cycle')
-rw-r--r--users/wpcarro/emacs/pkgs/cycle/cycle.el5
-rw-r--r--users/wpcarro/emacs/pkgs/cycle/default.nix1
2 files changed, 1 insertions, 5 deletions
diff --git a/users/wpcarro/emacs/pkgs/cycle/cycle.el b/users/wpcarro/emacs/pkgs/cycle/cycle.el
index 0d9834f6bf29..17dbd2fdb906 100644
--- a/users/wpcarro/emacs/pkgs/cycle/cycle.el
+++ b/users/wpcarro/emacs/pkgs/cycle/cycle.el
@@ -16,7 +16,6 @@
 
 (require 'dash)
 (require 'maybe)
-(require 'list)
 (require 'struct)
 (require 'cl-lib)
 
@@ -164,9 +163,7 @@ If X is the currently focused value, after it's deleted, current-index will be
 
 (defun cycle-contains? (x xs)
   "Return t if cycle, XS, has member X."
-  (->> xs
-       cycle-xs
-       (list-contains? x)))
+  (maybe-some? (-contains? (cycle-xs xs) x)))
 
 (defun cycle-empty? (xs)
   "Return t if cycle XS has no elements."
diff --git a/users/wpcarro/emacs/pkgs/cycle/default.nix b/users/wpcarro/emacs/pkgs/cycle/default.nix
index 88f656befda2..b644b7a0f641 100644
--- a/users/wpcarro/emacs/pkgs/cycle/default.nix
+++ b/users/wpcarro/emacs/pkgs/cycle/default.nix
@@ -12,7 +12,6 @@ let
             dash
           ]) ++
           (with depot.users.wpcarro.emacs.pkgs; [
-            list
             maybe
             struct
           ]);