cb4782b190
emacs-geiser/chez@4cb7f26 -> emacs-geiser/chez@03da1c1 emacs-geiser/chibi@54e7f38 -> emacs-geiser/chibi@6f59291 emacs-geiser/chicken@47be5b4 -> emacs-geiser/chicken@ceab39c emacs-geiser/gambit@0ee4156 -> emacs-geiser/gambit@3294c94 emacs-geiser/geiser@c5a9aae -> emacs-geiser/geiser@2b45bd3 emacs-geiser/guile@93ef710 -> emacs-geiser/guile@700ac98 emacs-geiser/racket@a87fd44 -> emacs-geiser/racket@22e56ce Also includes minor refactors.
69 lines
2.3 KiB
EmacsLisp
69 lines
2.3 KiB
EmacsLisp
;;; lang/scheme/config.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package! scheme
|
|
:hook (scheme-mode . rainbow-delimiters-mode)
|
|
:config (advice-add #'scheme-indent-function :override #'+scheme-indent-function-a))
|
|
|
|
|
|
(use-package! geiser
|
|
:defer t
|
|
:init
|
|
(setq geiser-autodoc-identifier-format "%s → %s"
|
|
geiser-repl-current-project-function #'doom-project-root)
|
|
|
|
(after! scheme ; built-in
|
|
(set-repl-handler! 'scheme-mode #'+scheme/open-repl)
|
|
(set-eval-handler! 'scheme-mode #'geiser-eval-region)
|
|
(set-lookup-handlers! '(scheme-mode geiser-repl-mode)
|
|
:definition #'geiser-edit-symbol-at-point
|
|
:documentation #'geiser-doc-symbol-at-point))
|
|
:config
|
|
(set-popup-rules!
|
|
'(("^\\*[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)))
|
|
|
|
|
|
(use-package! macrostep-geiser
|
|
:hook (geiser-mode . macrostep-geiser-setup)
|
|
:hook (geiser-repl-mode . macrostep-geiser-setup)
|
|
:init
|
|
(map! :after geiser
|
|
:localleader
|
|
:map scheme-mode-map
|
|
:desc "Expand macro" "m" #'macrostep-geiser
|
|
:desc "Expand all macros recursively" "M" #'macrostep-geiser-all))
|
|
|
|
|
|
(use-package! flycheck-guile
|
|
:when (featurep! +guile)
|
|
:when (featurep! :checkers syntax)
|
|
:after geiser)
|