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

Merge pull request #4890 from hugonobrega/develop

Browse source 
fix and add keybinds in :lang scheme, with descriptions
This commit is contained in:
Henrik Lissner 2021-05-01 02:02:32 -04:00 • committed by GitHub
commit 0b2415e8bf
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 36 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -10,7 +10,7 @@
:init :init
(setq geiser-autodoc-identifier-format "%s → %s" (setq geiser-autodoc-identifier-format "%s → %s"
geiser-repl-current-project-function #'doom-project-root) geiser-repl-current-project-function #'doom-project-root)
(after! scheme ; built-in (after! scheme ; built-in
(set-repl-handler! 'scheme-mode #'+scheme/open-repl) (set-repl-handler! 'scheme-mode #'+scheme/open-repl)
(set-eval-handler! 'scheme-mode #'geiser-eval-region) (set-eval-handler! 'scheme-mode #'geiser-eval-region)
@ -22,34 +22,39 @@
'(("^\\*[gG]eiser \\(dbg\\|xref\\|messages\\)\\*$" :slot 1 :vslot -1) '(("^\\*[gG]eiser \\(dbg\\|xref\\|messages\\)\\*$" :slot 1 :vslot -1)
("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35) ("^\\*Geiser documentation\\*$" :slot 2 :vslot 2 :select t :size 0.35)
("^\\* [A-Za-z0-9_-]+ REPL \\*" :size 0.3 :quit nil :ttl nil))) ("^\\* [A-Za-z0-9_-]+ REPL \\*" :size 0.3 :quit nil :ttl nil)))
(map! :localleader (map! :localleader
:map scheme-mode-map (:map (scheme-mode-map geiser-repl-mode-map)
"'" #'geiser-mode-switch-to-repl :desc "Toggle REPL" "'" #'switch-to-geiser
"\"" #'geiser-connect :desc "Connect to external Scheme" "\"" #'geiser-connect
"[" #'geiser-squarify :desc "Toggle type of brackets" "[" #'geiser-squarify
"\\" #'geiser-insert-lambda :desc "Insert lambda" "\\" #'geiser-insert-lambda
"s" #'geiser-set-scheme :desc "Set Scheme implementation" "s" #'geiser-set-scheme
(:prefix ("e" . "eval") :desc "Reload Geiser buffers+REPLs" "R" #'geiser-reload
"b" #'geiser-eval-buffer (:prefix ("h" . "help")
"B" #'geiser-eval-buffer-and-go :desc "Show callers of <point>" "<" #'geiser-xref-callers
"e" #'geiser-eval-last-sexp :desc "Show callees of <point>" ">" #'geiser-xref-callees
"d" #'geiser-eval-definition :desc "Toggle autodoc mode" "a" #'geiser-autodoc-mode
"D" #'geiser-eval-definition-and-go :desc "Show autodoc of <point>" "s" #'geiser-autodoc-show
"r" #'geiser-eval-region :desc "Search manual for <point>" "m" #'geiser-doc-look-up-manual
"R" #'geiser-eval-region-and-go) :desc "Show docstring of <point>" "." #'geiser-doc-symbol-at-point)
(:prefix ("h" . "help") (:prefix ("r" . "repl")
"d" #'geiser-autodoc :desc "Load file into REPL" "f" #'geiser-load-file
"<" #'geiser-xref-callers :desc "Restart REPL" "r" #'geiser-restart-repl))
">" #'geiser-xref-callees (:map scheme-mode-map
"i" #'geiser-doc-look-up-manual) (:prefix ("e" . "eval")
(:prefix ("r" . "repl") :desc "Eval buffer" "b" #'geiser-eval-buffer
"b" #'geiser-switch-to-repl :desc "Eval buffer and go to REPL" "B" #'geiser-eval-buffer-and-go
"q" #'geiser-repl-exit :desc "Eval last sexp" "e" #'geiser-eval-last-sexp
"l" #'geiser-load-current-buffer :desc "Eval definition" "d" #'geiser-eval-definition
"r" #'geiser-restart-repl :desc "Eval defn. and go to REPL" "D" #'geiser-eval-definition-and-go
"R" #'geiser-reload :desc "Eval region" "r" #'geiser-eval-region
"c" #'geiser-repl-clear-buffer))) :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 (use-package! macrostep-geiser
@ -58,9 +63,9 @@
:init :init
(map! :after geiser (map! :after geiser
:localleader :localleader
:map scheme-mode-map :map (scheme-mode-map geiser-repl-mode-map)
:desc "Expand macro" "m" #'macrostep-geiser :desc "Expand macro by one step" "m" #'macrostep-expand
:desc "Expand all macros recursively" "M" #'macrostep-geiser-all)) :desc "Recursively expand macro" "M" #'macrostep-geiser-expand-all))
(use-package! flycheck-guile (use-package! flycheck-guile