From d6b512821f296a7e347cc3b394130662de6a6b9c Mon Sep 17 00:00:00 2001
From: Benson Chu <bensonchu457@gmail.com>
Date: Sat, 29 Jul 2023 17:53:35 -0500
Subject: [PATCH] Haha, disable pop ups

---
 config-exwm.org | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/config-exwm.org b/config-exwm.org
index 09ffa5e..111f7b0 100644
--- a/config-exwm.org
+++ b/config-exwm.org
@@ -214,3 +214,19 @@
               :override
               #'my/exwm-input--fake-last-command)
 #+end_src
+* Disable Pop-ups mode
+#+begin_src emacs-lisp
+  (defun my/pop-buffer-ignore-exwm (buffer &optional norecord)
+    (not (eq 'exwm-mode
+             (with-current-buffer buffer
+               major-mode))))
+
+  (define-minor-mode exwm-disable-popups ""
+    :global t
+    (if exwm-disable-popups
+        (advice-add #'pop-to-buffer-same-window
+                    :before-while
+                    #'my/pop-buffer-ignore-exwm)
+      (advice-remove #'pop-to-buffer-same-window
+                     #'my/pop-buffer-ignore-exwm)))
+#+end_src