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

lang/scheme: general refactor

Browse source 
To optimize it and conform to new elips conventions introduced with
straight.el integration.
This commit is contained in:
Henrik Lissner 2019-09-13 13:56:23 -04:00
parent 8ad8b5d8ad
commit 016f6c1b8b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 32 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,39 +1,42 @@
;;; lang/scheme/config.el -*- lexical-binding: t; -*- ;;; lang/scheme/config.el -*- lexical-binding: t; -*-
;;;###package scheme
(add-hook 'scheme-mode-hook #'rainbow-delimiters-mode) (add-hook 'scheme-mode-hook #'rainbow-delimiters-mode)
(def-package! geiser
:mode ("\\.scm\\'" . scheme-mode) (use-package! geiser
:mode ("\\.ss\\'" . scheme-mode) :defer t
:commands (geiser)
:init :init
(setq geiser-active-implementations '(guile chicken mit chibi chez)) (setq geiser-active-implementations '(guile chicken mit chibi chez))
(set-repl-handler! 'scheme-mode '+scheme/repl) (unless (featurep! :lang racket)
(set-eval-handler! 'scheme-mode #'geiser-eval-region) (push 'racket geiser-active-implementations))
(set-lookup-handlers! 'scheme-mode (after! scheme ; built-in
:definition #'geiser-edit-symbol-at-point (set-repl-handler! 'scheme-mode '+scheme/repl)
:documentation #'geiser-doc-symbol-at-point) (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 :config
(map! (:localleader (map! :localleader
(:map scheme-mode-map :map scheme-mode-map
"'" #'geiser-mode-switch-to-repl "'" #'geiser-mode-switch-to-repl
"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
"e" #'geiser-eval-definition "e" #'geiser-eval-definition
"E" #'geiser-eval-definition-and-go "E" #'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)
;; TODO add more help keybindings ;; TODO add more help keybindings
(:prefix ("r" . "repl") (:prefix ("r" . "repl")
"b" #'geiser-switch-to-repl "b" #'geiser-switch-to-repl
"q" #'geiser-repl-exit "q" #'geiser-repl-exit
"r" #'geiser-restart-repl "r" #'geiser-restart-repl
"R" #'geiser-reload "R" #'geiser-reload
"c" #'geiser-repl-clear-buffer))))) "c" #'geiser-repl-clear-buffer)))