awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #2166 from rgrinberg/repl-popup

Browse Source 
Add ocaml & geiser popup rules
This commit is contained in:
Henrik Lissner
2019-12-08 20:16:38 -05:00
committed by GitHub
parent 9cc7e4c76f abdc5502bc
commit 740b0504b9
2 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
modules/lang/ocaml/config.el
View File

@ -37,7 +37,9 @@
(set-eval-handler! 'tuareg-mode #'utop-eval-region) (set-eval-handler! 'tuareg-mode #'utop-eval-region)
(defun +ocaml-init-utop-h () (defun +ocaml-init-utop-h ()
(when (executable-find "utop") (when (executable-find "utop")
(utop-minor-mode))))) (utop-minor-mode)))
:config
(set-popup-rule! "^\\*utop\\*" :quit nil)))
(use-package! merlin (use-package! merlin

3
modules/lang/scheme/config.el
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-rules!
'(("\\*[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