do not display exwm buffer in selector if not in curr workspace

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."