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

Refactor scheme module

Browse source
This commit is contained in:
Henrik Lissner 2020-04-24 00:33:54 -04:00
parent 469b520bfb
commit 74d05552c1
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 7 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,20 +1,19 @@
;;; lang/scheme/config.el -*- lexical-binding: t; -*- ;;; lang/scheme/config.el -*- lexical-binding: t; -*-
(use-package! scheme (use-package! scheme
:defer t :hook (scheme-mode . rainbow-delimiters-mode))
:hook ((scheme-mode . rainbow-delimiters-mode)
(scheme-mode . geiser-mode)))
(use-package! geiser (use-package! geiser
:defer t :hook (scheme-mode . geiser-mode)
:init :init
(setq geiser-active-implementations '(guile chicken mit chibi chez)) (setq geiser-active-implementations '(guile chicken mit chibi chez)
(setq geiser-mode-start-repl-p t) geiser-mode-start-repl-p t
(setq geiser-smart-tab-p t) geiser-smart-tab-p t)
(unless (featurep! :lang racket) (unless (featurep! :lang racket)
(push 'racket geiser-active-implementations)) (push 'racket geiser-active-implementations))
(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)
(set-lookup-handlers! 'scheme-mode (set-lookup-handlers! 'scheme-mode
:definition #'geiser-edit-symbol-at-point :definition #'geiser-edit-symbol-at-point
@ -30,7 +29,6 @@
"[" #'geiser-squarify "[" #'geiser-squarify
"\\" #'geiser-insert-lambda "\\" #'geiser-insert-lambda
"s" #'geiser-set-scheme "s" #'geiser-set-scheme
(:prefix ("e" . "eval") (:prefix ("e" . "eval")
"b" #'geiser-eval-buffer "b" #'geiser-eval-buffer
"B" #'geiser-eval-buffer-and-go "B" #'geiser-eval-buffer-and-go
@ -39,7 +37,6 @@
"D" #'geiser-eval-definition-and-go "D" #'geiser-eval-definition-and-go
"r" #'geiser-eval-region "r" #'geiser-eval-region
"R" #'geiser-eval-region-and-go) "R" #'geiser-eval-region-and-go)
(:prefix ("h" . "help") (:prefix ("h" . "help")
"d" #'geiser-autodoc "d" #'geiser-autodoc
"<" #'geiser-xref-callers "<" #'geiser-xref-callers