emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #3416 from flatwhatson/scheme-fixes

Browse source 
Minor scheme module improvements
This commit is contained in:
Henrik Lissner 2020-06-19 13:34:36 -04:00 • committed by GitHub
commit fdbfae30ed
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
modules/config/default/+evil-bindings.el
View file

@ -69,6 +69,8 @@
[escape] #'View-quit-all) [escape] #'View-quit-all)
(:after man :map Man-mode-map (:after man :map Man-mode-map
:n "q" #'kill-current-buffer) :n "q" #'kill-current-buffer)
(:after geiser-doc :map geiser-doc-mode-map
:n "o" #'link-hint-open-link)
(:after (evil-org evil-easymotion) (:after (evil-org evil-easymotion)
:map evil-org-mode-map :map evil-org-mode-map

4
modules/lang/scheme/config.el
View file

@ -6,7 +6,7 @@
(use-package! geiser (use-package! geiser
:hook (scheme-mode . geiser-mode) :defer t
:init :init
(setq geiser-active-implementations '(guile chicken mit chibi chez) (setq geiser-active-implementations '(guile chicken mit chibi chez)
geiser-autodoc-identifier-format "%s → %s" geiser-autodoc-identifier-format "%s → %s"
@ -25,7 +25,7 @@
("^\\*Geiser dbg\\*$" :slot 1 :vslot -1) ("^\\*Geiser dbg\\*$" :slot 1 :vslot -1)
("^\\*Geiser xref\\*$" :slot 1 :vslot -1) ("^\\*Geiser xref\\*$" :slot 1 :vslot -1)
("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35) ("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35)
("^\\* [A-Za-z0-9_-]+ REPL \\*$" :quit nil :ttl nil))) ("^\\* [A-Za-z0-9_-]+ REPL \\*" :size 0.3 :quit nil :ttl nil)))
(map! :localleader (map! :localleader
:map scheme-mode-map :map scheme-mode-map
"'" #'geiser-mode-switch-to-repl "'" #'geiser-mode-switch-to-repl