diff --git a/modules/config/default/+evil-bindings.el b/modules/config/default/+evil-bindings.el index 3b47bb11e..389dafbe3 100644 --- a/modules/config/default/+evil-bindings.el +++ b/modules/config/default/+evil-bindings.el @@ -69,6 +69,8 @@ [escape] #'View-quit-all) (:after man :map Man-mode-map :n "q" #'kill-current-buffer) + (:after geiser-doc :map geiser-doc-mode-map + :n "o" #'link-hint-open-link) (:after (evil-org evil-easymotion) :map evil-org-mode-map diff --git a/modules/lang/scheme/config.el b/modules/lang/scheme/config.el index 5605d0795..343812458 100644 --- a/modules/lang/scheme/config.el +++ b/modules/lang/scheme/config.el @@ -6,7 +6,7 @@ (use-package! geiser - :hook (scheme-mode . geiser-mode) + :defer t :init (setq geiser-active-implementations '(guile chicken mit chibi chez) geiser-autodoc-identifier-format "%s → %s" @@ -25,7 +25,7 @@ ("^\\*Geiser dbg\\*$" :slot 1 :vslot -1) ("^\\*Geiser xref\\*$" :slot 1 :vslot -1) ("^\\*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 scheme-mode-map "'" #'geiser-mode-switch-to-repl