From 4dd2b7bf27681dd1cd315907505ecf78baba74dd Mon Sep 17 00:00:00 2001 From: bd Date: Thu, 13 Feb 2025 23:35:12 -0500 Subject: Add selector navigate category for shells, modify order --- .config/emacs/modules/bd--utility.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to '.config/emacs/modules/bd--utility.el') diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el index 2733e80..b4fa87f 100644 --- a/.config/emacs/modules/bd--utility.el +++ b/.config/emacs/modules/bd--utility.el @@ -108,6 +108,12 @@ ARG can be one of the following: "Return non-nil if BUF derives from `prog-mode'." (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'prog-mode)) +(defun bd/buffer-shell-p (buf) + "Return non-nil if BUF derives from `text-mode'." + (member + (buffer-local-value 'major-mode (get-buffer buf)) + '(shell-mode eshell-mode term-mode vterm-mode))) + (defun bd/buffer-dired-p (buf) "Return non-nil if BUF is a `dired-mode' buffer." (member @@ -125,6 +131,7 @@ ARG can be one of the following: (not (or (bd/buffer-exwm-p buf) (bd/buffer-text-p buf) (bd/buffer-prog-p buf) + (bd/buffer-shell-p buf) (bd/buffer-scratch-p buf) (bd/buffer-dired-p buf) (bd/buffer-irc-p buf)))) -- cgit v1.2.3