Scheme/Geiser: Bind same keys to macro expansion commands in REPL.

master
Pierre Neidhardt 2020-08-10 12:13:03 +02:00
parent 29be65d8cd
commit fbca135880
1 changed files with 11 additions and 1 deletions

View File

@ -29,6 +29,16 @@
;; geiser-repl-save-debugging-history-p t
geiser-repl-history-size 5000)
(add-hook 'geiser-repl-mode-hook 'lispyville-mode)
(add-hook 'geiser-repl-mode-hook 'rainbow-delimiters-mode))
(add-hook 'geiser-repl-mode-hook 'rainbow-delimiters-mode)
;; Fontify debug buffer:
(add-hook 'geiser-debug-mode-hook 'scheme-mode) ; TODO: Does not work?
(define-key geiser-repl-mode-map (kbd "C-c m") 'switch-to-geiser-module)
(define-key geiser-repl-mode-map (kbd "C-c C-m") nil)
;; Bind same macro expansion keys in the REPL:
(define-key geiser-repl-mode-map (kbd "C-c C-m C-e") 'geiser-expand-last-sexp)
(define-key geiser-repl-mode-map (kbd "C-c C-m C-x") 'geiser-expand-definition)
(define-key geiser-repl-mode-map (kbd "C-c C-m C-r") 'geiser-expand-region))
(provide 'init-scheme)