diff options
| author | bd <bdunahu@operationnull.com> | 2025-10-18 19:20:48 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-10-18 19:20:48 -0400 |
| commit | 1c4a3d2a527cf592b3b7ed645d5dff58eb46e569 (patch) | |
| tree | 950340c5539f125f34af192a28cb54bedce18635 /.config/emacs/modules | |
| parent | 5af7f12053c1ab393d1306e53606d72b2122d107 (diff) | |
do not display exwm buffer in selector if not in curr workspace
Diffstat (limited to '.config/emacs/modules')
| -rw-r--r-- | .config/emacs/modules/bd--utility.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/.config/emacs/modules/bd--utility.el b/.config/emacs/modules/bd--utility.el index d48ff02..33e2285 100644 --- a/.config/emacs/modules/bd--utility.el +++ b/.config/emacs/modules/bd--utility.el @@ -99,10 +99,12 @@ TODO default folder" '(eww-mode))) (defun bd/buffer-exwm-p (buf) - "Return non-nil if BUF is an `exwm-mode' buffer." - (member - (buffer-local-value 'major-mode (get-buffer buf)) - '(exwm-mode))) + "Return non-nil if BUF is an `exwm-mode' buffer and is in the current workspace." + (and (member + (buffer-local-value 'major-mode (get-buffer buf)) + '(exwm-mode)) + (eq (exwm-workspace--position exwm-workspace--current) + (alist-get 'exwm--desktop (buffer-local-variables (get-buffer buf)))))) (defun bd/buffer-scratch-p (buf) "Return non-nil if BUF is a scratch buffer." |