emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
commit 740b0504b9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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