From 6ff3b7aa1eb39d4161b163d24cb59ee5eb272d17 Mon Sep 17 00:00:00 2001 From: Andrew Whatson Date: Fri, 19 Jun 2020 14:37:29 +1000 Subject: [PATCH 1/3] Bind a link-hinting key for geiser-doc-mode --- modules/config/default/+evil-bindings.el | 2 ++ 1 file changed, 2 insertions(+) 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 From 5190c094af8756e714b136374daff9efdbd27201 Mon Sep 17 00:00:00 2001 From: Andrew Whatson Date: Fri, 19 Jun 2020 14:37:57 +1000 Subject: [PATCH 2/3] Remove explicit hook of geiser-mode on scheme-mode The geiser module already adds a hook to `geiser-mode--maybe-activate` which respects the user's setting of `geiser-auto-mode-p`. --- modules/lang/scheme/config.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/lang/scheme/config.el b/modules/lang/scheme/config.el index 5605d0795..965d6668a 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" From 5bacfd631110855e3d6f599fd7568989baaf64cc Mon Sep 17 00:00:00 2001 From: Andrew Whatson Date: Fri, 19 Jun 2020 14:40:34 +1000 Subject: [PATCH 3/3] Improve popup rule for geiser REPLs Fix the rule to properly match when multiple REPLs are opened. Add an explicit size to match other REPLs. --- modules/lang/scheme/config.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/modules/lang/scheme/config.el b/modules/lang/scheme/config.el index 965d6668a..343812458 100644 --- a/modules/lang/scheme/config.el +++ b/modules/lang/scheme/config.el @@ -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