mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

15
users/wpcarro/emacs/pkgs/vterm-mgt/default.nix
View file

@ -1,18 +1,19 @@
{ pkgs, depot, ... }:
pkgs.callPackage
({ emacsPackages }:
emacsPackages.trivialBuild {
pkgs.emacsPackages.trivialBuild {
pname = "vterm-mgt";
version = "1.0.0";
src = ./vterm-mgt.el;
packageRequires =
(with emacsPackages; [
dash
(with pkgs.emacsPackages; [
vterm
]) ++
(with depot.users.wpcarro.emacs.pkgs; [
cycle
]);
})
{ }
passthru.meta.ci.extraSteps.github = depot.tools.releases.filteredGitPush {
filter = ":/users/wpcarro/emacs/pkgs/vterm-mgt";
remote = "git@github.com:wpcarro/vterm-mgt.el.git";
ref = "refs/heads/canon";
};
}

13
users/wpcarro/emacs/pkgs/vterm-mgt/vterm-mgt.el
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