dimitri/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update gerbil configuration

Browse source
This commit is contained in:
Dimitri Lozeve 2021-10-24 22:22:45 +02:00
parent e55f4add56
commit 0af78b0a64
1 changed files with 3 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

22
init.el
View file

@ -383,12 +383,6 @@
:defer t :defer t
:mode (("\\.ss\\'" . gerbil-mode) :mode (("\\.ss\\'" . gerbil-mode)
("\\.pkg\\'" . gerbil-mode)) ("\\.pkg\\'" . gerbil-mode))
:bind (:map comint-mode-map
(("C-S-n" . comint-next-input)
("C-S-p" . comint-previous-input)
("C-S-l" . clear-comint-buffer))
:map gerbil-mode-map
(("C-S-l" . clear-comint-buffer)))
:init :init
(setf gambit (getenv "GAMBIT")) (setf gambit (getenv "GAMBIT"))
(setf gerbil (getenv "GERBIL_HOME")) (setf gerbil (getenv "GERBIL_HOME"))
@ -397,22 +391,12 @@
:hook :hook
((inferior-scheme-mode-hook . gambit-inferior-mode)) ((inferior-scheme-mode-hook . gambit-inferior-mode))
:config :config
(require 'gambit (concat gambit "/share/emacs/site-lisp/gambit.el")) (require 'gambit (concat gambit "/misc/gambit.el"))
(setf scheme-program-name (concat gerbil "/bin/gxi")) (setf scheme-program-name "gxi")
(let ((tags (locate-dominating-file default-directory "TAGS"))) (let ((tags (locate-dominating-file default-directory "TAGS")))
(when tags (visit-tags-table tags))) (when tags (visit-tags-table tags)))
(visit-tags-table (concat gerbil "/src/TAGS")) (visit-tags-table (concat gerbil "/src/TAGS")))
(when (package-installed-p 'smartparens)
(sp-pair "'" nil :actions :rem)
(sp-pair "`" nil :actions :rem))
(defun clear-comint-buffer ()
(interactive)
(with-current-buffer "*scheme*"
(let ((comint-buffer-maximum-size 0))
(comint-truncate-buffer)))))
(use-package zig-mode (use-package zig-mode
:straight t :straight t