Merge pull request #3416 from flatwhatson/scheme-fixes

Minor scheme module improvements

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

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