refactor(wpcarro/emacs): Remove vterm-mgt.el's dep on dash.el

TIL (or remembered rather) `seq.el` exists

Change-Id: Iec5c21aff7a76906cb24d03bf39bf03f94b67760
Reviewed-on: https://cl.tvl.fyi/c/depot/+/6037
Reviewed-by: wpcarro <wpcarro@gmail.com>
Autosubmit: wpcarro <wpcarro@gmail.com>
Tested-by: BuildkiteCI
This commit is contained in:
William Carroll 2022-08-04 14:27:28 -07:00 committed by clbot
parent 70a13db93b
commit 3ebd71dfa2
2 changed files with 22 additions and 24 deletions

View file

@ -22,16 +22,17 @@
;; Dependencies
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'dash)
(require 'cycle)
(require 'vterm)
(require 'seq)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Configuration
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgroup vterm-mgt nil
"Customization options for `vterm-mgt'.")
"Customization options for `vterm-mgt'."
:group 'vterm)
(defcustom vterm-mgt-scroll-on-focus nil
"When t, call `end-of-buffer' after focusing a vterm instance."
@ -124,9 +125,7 @@ If for whatever reason, the state of `vterm-mgt--instances' is corrupted and
restore the state."
(interactive)
(setq vterm-mgt--instances
(->> (buffer-list)
(-filter #'vterm-mgt--instance?)
cycle-from-list)))
(cycle-from-list (seq-filter #'vterm-mgt--instance? (buffer-list)))))
(defun vterm-mgt-select ()
"Select a vterm instance by name from the list in `vterm-mgt--instances'."
@ -134,9 +133,7 @@ If for whatever reason, the state of `vterm-mgt--instances' is corrupted and
(vterm-mgt-reconcile-state)
(switch-to-buffer
(completing-read "Switch to vterm: "
(->> vterm-mgt--instances
cycle-to-list
(-map #'buffer-name)))))
(seq-map #'buffer-name (cycle-to-list vterm-mgt--instances)))))
(provide 'vterm-mgt)
;;; vterm-mgt.el ends here