From 10b06b06d99eddc018f8569ded4731986dcca6fc Mon Sep 17 00:00:00 2001
From: Rudi Grinberg <me@rgrinberg.com>
Date: Sun, 8 Dec 2019 16:28:13 +0700
Subject: [PATCH] popup rules for geiser buffers

---
 modules/lang/scheme/config.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/modules/lang/scheme/config.el b/modules/lang/scheme/config.el
index 8fbceb2c1..03641843f 100644
--- a/modules/lang/scheme/config.el
+++ b/modules/lang/scheme/config.el
@@ -40,4 +40,6 @@
           "r" #'geiser-restart-repl
           "R" #'geiser-reload
           "c" #'geiser-repl-clear-buffer))
-  (set-popup-rule! "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil))
+  (set-popup-rule!
+    '(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil)
+      ( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil))))