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

fix and add keybinds in :lang scheme, with descriptions

Browse source 
Some keys were bound to no-longer-existing commands, or commands which changed
name.

Others only made sense in the REPL, or /also/ in the REPL, so the keybinds are
now in `scheme-mode-map', `geiser-repl-mode-map', or both accordingly.
This commit is contained in:
Hugo Nobrega 2021-04-18 22:01:17 -03:00
parent f3748b2977
commit c2b40148b8
1 changed files with 38 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -4,7 +4,6 @@
:hook (scheme-mode . rainbow-delimiters-mode)
:config (advice-add #'scheme-indent-function :override #'+scheme-scheme-indent-function-a))
(use-package! geiser
:defer t
:init
@ -22,35 +21,39 @@
'(("^\\*[gG]eiser \\(dbg\\|xref\\|messages\\)\\*$" :slot 1 :vslot -1)
("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35)
("^\\* [A-Za-z0-9_-]+ REPL \\*" :size 0.3 :quit nil :ttl nil)))
(map! :localleader
:map scheme-mode-map
"'" #'geiser-mode-switch-to-repl
"\"" #'geiser-connect
"[" #'geiser-squarify
"\\" #'geiser-insert-lambda
"s" #'geiser-set-scheme
(:prefix ("e" . "eval")
"b" #'geiser-eval-buffer
"B" #'geiser-eval-buffer-and-go
"e" #'geiser-eval-last-sexp
"d" #'geiser-eval-definition
"D" #'geiser-eval-definition-and-go
"r" #'geiser-eval-region
"R" #'geiser-eval-region-and-go)
(:prefix ("h" . "help")
"d" #'geiser-autodoc
"<" #'geiser-xref-callers
">" #'geiser-xref-callees
"i" #'geiser-doc-look-up-manual)
(:prefix ("r" . "repl")
"b" #'geiser-switch-to-repl
"q" #'geiser-repl-exit
"l" #'geiser-load-current-buffer
"r" #'geiser-restart-repl
"R" #'geiser-reload
"c" #'geiser-repl-clear-buffer)))
(map!
:localleader
(:map (scheme-mode-map geiser-repl-mode-map)
:desc "Toggle REPL" "'" #'switch-to-geiser
:desc "Connect to external Scheme" "\"" #'geiser-connect
:desc "Toggle type of brackets" "[" #'geiser-squarify
:desc "Insert lambda" "\\" #'geiser-insert-lambda
:desc "Set Scheme implementation" "s" #'geiser-set-scheme
:desc "Reload Geiser buffers+REPLs" "R" #'geiser-reload
(:prefix ("h" . "help")
:desc "Show callers of <point>" "<" #'geiser-xref-callers
:desc "Show callees of <point>" ">" #'geiser-xref-callees
:desc "Toggle autodoc mode" "a" #'geiser-autodoc-mode
:desc "Show autodoc of <point>" "s" #'geiser-autodoc-show
:desc "Search manual for <point>" "m" #'geiser-doc-look-up-manual
:desc "Show docstring of <point>" "." #'geiser-doc-symbol-at-point)
(:prefix ("r" . "repl")
:desc "Load file into REPL" "f" #'geiser-load-file
:desc "Restart REPL" "r" #'geiser-restart-repl))
(:map scheme-mode-map
(:prefix ("e" . "eval")
:desc "Eval buffer" "b" #'geiser-eval-buffer
:desc "Eval buffer and go to REPL" "B" #'geiser-eval-buffer-and-go
:desc "Eval last sexp" "e" #'geiser-eval-last-sexp
:desc "Eval definition" "d" #'geiser-eval-definition
:desc "Eval defn. and go to REPL" "D" #'geiser-eval-definition-and-go
:desc "Eval region" "r" #'geiser-eval-region
:desc "Eval region and go to REPL" "R" #'geiser-eval-region-and-go)
(:prefix ("r" . "repl")
:desc "Load current buffer in REPL" "b" #'geiser-load-current-buffer))
(:map geiser-repl-mode-map
:desc "Clear REPL buffer" "c" #'geiser-repl-clear-buffer
:desc "Quit REPL" "q" #'geiser-repl-exit)))
(use-package! macrostep-geiser
:hook (geiser-mode . macrostep-geiser-setup)
@ -58,10 +61,11 @@
:init
(map! :after geiser
:localleader
:map scheme-mode-map
:desc "Expand macro" "m" #'macrostep-geiser
:desc "Expand all macros recursively" "M" #'macrostep-geiser-all))
:map (scheme-mode-map geiser-repl-mode-map)
(:prefix ("x" . "expand")
:desc "Expand macro by one step" "x" #'macrostep-expand
:desc "Recursively expand macro" "r" #'macrostep-geiser-expand-all
:desc "Collapse macro by one step" "c" #'macrostep-collapse)))
(use-package! flycheck-guile
:when (featurep! +guile)