From 1a1b5c650ca45e753bf5c83f1cb9f7da26c538d4 Mon Sep 17 00:00:00 2001 From: Rudi Grinberg Date: Sun, 8 Dec 2019 21:17:01 +0700 Subject: [PATCH] Move geiser rules above map --- modules/lang/scheme/config.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/modules/lang/scheme/config.el b/modules/lang/scheme/config.el index 03641843f..4face46ed 100644 --- a/modules/lang/scheme/config.el +++ b/modules/lang/scheme/config.el @@ -17,6 +17,9 @@ :definition #'geiser-edit-symbol-at-point :documentation #'geiser-doc-symbol-at-point)) :config + (set-popup-rule! + '(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil) + ( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil))) (map! :localleader :map scheme-mode-map "'" #'geiser-mode-switch-to-repl @@ -39,7 +42,4 @@ "q" #'geiser-repl-exit "r" #'geiser-restart-repl "R" #'geiser-reload - "c" #'geiser-repl-clear-buffer)) - (set-popup-rule! - '(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil) - ( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil)))) + "c" #'geiser-repl-clear-buffer)))