diff options
| -rw-r--r-- | users/wpcarro/emacs/pkgs/cycle/cycle.el | 5 | ||||
| -rw-r--r-- | users/wpcarro/emacs/pkgs/cycle/default.nix | 1 |
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 ]); |