From 13d96f5b959c3c2a6d64910a7b719999489661d1 Mon Sep 17 00:00:00 2001 From: bd Date: Sat, 2 Nov 2024 13:14:28 -0400 Subject: Scratch buffers categorized in switch-to-buffer --- .config/emacs/modules/bd--minibuffer.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to '.config/emacs/modules/bd--minibuffer.el') diff --git a/.config/emacs/modules/bd--minibuffer.el b/.config/emacs/modules/bd--minibuffer.el index 844f7b3..2827cff 100644 --- a/.config/emacs/modules/bd--minibuffer.el +++ b/.config/emacs/modules/bd--minibuffer.el @@ -28,6 +28,10 @@ selection commands.") (buffer-local-value 'major-mode (get-buffer buf)) '(exwm-mode))) +(defun bd/buffer-scratch-p (buf) + "Return non-nil if BUF is a scratch buffer." + (buffer-local-value 'scratch-buffer (get-buffer buf))) + (defun bd/buffer-text-p (buf) "Return non-nil if BUF derives from `text-mode'." (provided-mode-derived-p (buffer-local-value 'major-mode (get-buffer buf)) 'text-mode)) @@ -58,6 +62,7 @@ selection commands.") (not (or (bd/buffer-exwm-p buf) (bd/buffer-text-p buf) (bd/buffer-prog-p buf) + (bd/buffer-scratch-p buf) (bd/buffer-dired-p buf) (bd/buffer-erc-p buf)))) @@ -102,6 +107,7 @@ selection commands.") (bd/selector-buffer-type "EXWM" #'bd/buffer-exwm-p) (bd/selector-buffer-type "Text" #'bd/buffer-text-p) (bd/selector-buffer-type "Source" #'bd/buffer-prog-p) + (bd/selector-buffer-type "Scratch" #'bd/buffer-scratch-p) (bd/selector-buffer-type "Directories" #'bd/buffer-dired-p) (bd/selector-buffer-type "IRC" #'bd/buffer-erc-p) (bd/selector-buffer-type "Ordinary" #'bd/buffer-ordinary-p) -- cgit v1.2.3