From 9d475c5b9b037389abed5ab68f15fa34bd67a567 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Tue, 2 Aug 2022 12:47:35 -0700 Subject: refactor(wpcarro/emacs): Remove cycle.el dep on list.el 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 Autosubmit: wpcarro Tested-by: BuildkiteCI --- users/wpcarro/emacs/pkgs/cycle/cycle.el | 5 +---- users/wpcarro/emacs/pkgs/cycle/default.nix | 1 - 2 files changed, 1 insertion(+), 5 deletions(-) (limited to 'users/wpcarro') 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 ]); -- cgit 1.4.1