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

Update Gerbil configuration

Browse source 
The GERBIL_HOME environment variable is not used anymore.
This commit is contained in:
Dimitri Lozeve 2023-09-07 12:05:24 +02:00
parent 5713e3bd68
commit 08a64f5b93
1 changed files with 6 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

17
init.el
View file

@ -153,9 +153,7 @@
(exec-path-from-shell-initialize) (exec-path-from-shell-initialize)
(exec-path-from-shell-copy-env "LD_LIBRARY_PATH") (exec-path-from-shell-copy-env "LD_LIBRARY_PATH")
(exec-path-from-shell-copy-env "PYENV_ROOT") (exec-path-from-shell-copy-env "PYENV_ROOT")
(exec-path-from-shell-copy-env "PYENV_ROOT") (exec-path-from-shell-copy-env "PYENV_ROOT")))
(exec-path-from-shell-copy-env "GAMBIT")
(exec-path-from-shell-copy-env "GERBIL_HOME")))
;;; Menus and completion ;;; Menus and completion
@ -753,25 +751,22 @@
:straight t) :straight t)
(use-package gerbil-mode (use-package gerbil-mode
:when (getenv "GERBIL_HOME")
:straight nil :straight nil
:defer t :defer t
:mode (("\\.ss\\'" . gerbil-mode) :mode (("\\.ss\\'" . gerbil-mode)
("\\.pkg\\'" . gerbil-mode)) ("\\.pkg\\'" . gerbil-mode))
:init :init
(setf gambit (getenv "GAMBIT")) (add-to-list 'load-path "/opt/gerbil/share/emacs/site-lisp")
(setf gerbil (getenv "GERBIL_HOME")) (require 'gambit)
(autoload 'gerbil-mode (autoload 'gerbil-mode "gerbil-mode" "Gerbil editing mode." t)
(concat gerbil "/etc/gerbil-mode.el") "Gerbil editing mode." t)
:hook :hook
((inferior-scheme-mode . gambit-inferior-mode)) ((inferior-scheme-mode . gambit-inferior-mode))
:config :config
(require 'gambit (concat gambit "/misc/gambit.el")) (setf scheme-program-name "gxi")
(setf scheme-program-name (concat gerbil "/bin/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 "~/build/gerbil/src/TAGS"))
;; Use APL font face in current buffer ;; Use APL font face in current buffer
(defun my-buffer-face-mode-apl () (defun my-buffer-face-mode-apl ()