Move geiser rules above map

This commit is contained in:
Rudi Grinberg 2019-12-08 21:17:01 +07:00
parent 10b06b06d9
commit 1a1b5c650c

View file

@ -17,6 +17,9 @@
:definition #'geiser-edit-symbol-at-point :definition #'geiser-edit-symbol-at-point
:documentation #'geiser-doc-symbol-at-point)) :documentation #'geiser-doc-symbol-at-point))
:config :config
(set-popup-rule!
'(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil)
( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil)))
(map! :localleader (map! :localleader
:map scheme-mode-map :map scheme-mode-map
"'" #'geiser-mode-switch-to-repl "'" #'geiser-mode-switch-to-repl
@ -39,7 +42,4 @@
"q" #'geiser-repl-exit "q" #'geiser-repl-exit
"r" #'geiser-restart-repl "r" #'geiser-restart-repl
"R" #'geiser-reload "R" #'geiser-reload
"c" #'geiser-repl-clear-buffer)) "c" #'geiser-repl-clear-buffer)))
(set-popup-rule!
'(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil)
( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit nil))))