awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-19 13:43:36 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add scheme module README

Browse Source 
The README.org has the prereqs as well as links to geiser and the
various scheme implementations.
This commit is contained in:
Elais Player
2019-07-23 11:04:26 -05:00
parent db8d541fbe
commit 0659675ade
3 changed files with 42 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
modules/lang/scheme/config.el
View File

@@ -2,20 +2,12 @@
(add-hook 'scheme-mode-hook #'rainbow-delimiters-mode)
(defun +scheme/impls ()
`( ,@(when (featurep! +racket) '(racket))
,@(when (featurep! +guile) '(guile))
,@(when (featurep! +chicken) '(chicken))
,@(when (featurep! +mit) '(mit))
,@(when (featurep! +chibi) '(chibi))
,@(when (featurep! +chez) '(chez)) ()))
(def-package! geiser
:mode ("\\.scm\\'" . scheme-mode)
:mode ("\\.ss\\'" . scheme-mode)
:commands (geiser)
:init
(setq geiser-active-implementations #'+scheme/impls)
(setq geiser-active-implementations '(guile chicken mit chibi chez))
(set-repl-handler! 'scheme-mode '+scheme/repl)
(set-eval-handler! 'scheme-mode #'geiser-eval-region)
(set-lookup-handlers! 'scheme-mode
@@ -36,7 +28,8 @@
"R" #'geiser-eval-region-and-go)
(:prefix ("h" . "help")
"d" 'geiser-autodoc)
"d" 'geiser-autodoc
;; TODO add more help keybindings)
(:prefix ("r" . "repl")
"b" #'geiser-switch-to-repl