From ba93dad42c5d394ed60cdd8aaf5a3a2035f30f7f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 15 Mar 2022 00:03:43 +0000
Subject: completion: exwm/consult clutch

---
 completion.org | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/completion.org b/completion.org
index 275bf3a..49c718a 100644
--- a/completion.org
+++ b/completion.org
@@ -362,6 +362,17 @@
       (jao-consult-add-buffer-source 'jao-chat-buffer-source)
     #+end_src
 
+*** exwm
+    #+begin_src emacs-lisp
+      (with-eval-after-load "exwm"
+        (defun consult-exwm-preview-fix (&rest _args)
+          "Kludge to stop EXWM buffers from stealing focus during Consult previews."
+          (when-let ((mini (active-minibuffer-window)))
+            (select-window (active-minibuffer-window))))
+
+        (advice-add #'consult--buffer-action :after #'consult-exwm-preview-fix))
+
+    #+end_src
 * embark
 *** package
     #+begin_src emacs-lisp
-- 
cgit v1.2.3