0345838aa9
Initially I believed it would be a good idea to start the repl upon entry into a scheme file, but this has so far preempted tools that rely on direnv to create ad-hoc environments leading to not all dependencies being availabe for scheme files. I had not realized how annoying this could be because at the time all of my scheme libraries were installed in my user environment. Another reason for this change is it brings the scheme module back into line with the repl based modules for other lisps like clojure.
55 lines
2 KiB
EmacsLisp
55 lines
2 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-scheme-indent-function-a))
|
|
|
|
|
|
(use-package! geiser
|
|
:hook (scheme-mode . geiser-mode)
|
|
:init
|
|
(setq geiser-active-implementations '(guile chicken mit chibi chez)
|
|
geiser-smart-tab-p t)
|
|
(unless (featurep! :lang racket)
|
|
(push 'racket geiser-active-implementations))
|
|
(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
|
|
:definition #'geiser-edit-symbol-at-point
|
|
:documentation #'geiser-doc-symbol-at-point))
|
|
:config
|
|
(set-popup-rules!
|
|
'(("\\*[Gg]eiser \\(?:[Mm]essages\\|DBG\\|Xref\\)\\*" :quit nil)
|
|
( "\\* [A-Za-z0-9_-]+ REPL \\*" :quit 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 ("m" . "macro")
|
|
"r" #'geiser-expand-region
|
|
"d" #'geiser-expand-definition
|
|
"e" #'geiser-expand-last-sexp)
|
|
(: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)))
|