Merge pull request #4890 from hugonobrega/develop
fix and add keybinds in :lang scheme, with descriptions
This commit is contained in:
commit
0b2415e8bf
1 changed files with 36 additions and 31 deletions
|
@ -24,32 +24,37 @@
|
|||
("^\\* [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)
|
||||
(: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")
|
||||
"d" #'geiser-autodoc
|
||||
"<" #'geiser-xref-callers
|
||||
">" #'geiser-xref-callees
|
||||
"i" #'geiser-doc-look-up-manual)
|
||||
: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")
|
||||
"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)))
|
||||
: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
|
||||
|
@ -58,9 +63,9 @@
|
|||
: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)
|
||||
:desc "Expand macro by one step" "m" #'macrostep-expand
|
||||
:desc "Recursively expand macro" "M" #'macrostep-geiser-expand-all))
|
||||
|
||||
|
||||
(use-package! flycheck-guile
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue