diff options
Diffstat (limited to '.config/emacs/modules/bd--minibuffer.el')
| -rw-r--r-- | .config/emacs/modules/bd--minibuffer.el | 6 |
1 files changed, 6 insertions, 0 deletions
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) |