diff options
| -rw-r--r-- | init.org | 20 |
1 files changed, 9 insertions, 11 deletions
@@ -3082,29 +3082,27 @@ (put 'with-working-directory 'scheme-indent-function 1) #+END_SRC *** Geiser - #+BEGIN_SRC emacs-lisp - ;; (when (file-exists-p "~/usr/jao/geiser/src") - ;; (load-file (expand-file-name "~/usr/jao/geiser/src/elisp/geiser.el"))) - (jao-load-path "~/usr/jao/geiser/src/elisp") + #+begin_src emacs-lisp + (defun jao-org--set-geiser-impl () (setq-local geiser-repl--impl 'guile)) + (add-hook 'org-mode-hook #'jao-org--set-geiser-impl) + + (jao-load-path "geiser/geiser") (use-package geiser :init (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history") (setq geiser-repl-startup-time 20000) (setq geiser-debug-auto-display-images-p t)) - (jao-load-path "~/usr/jao/geiser/mit") + (jao-load-path "geiser/mit") (use-package geiser-mit) - (jao-load-path "~/usr/jao/geiser/chez") + (jao-load-path "geiser/chez") (use-package geiser-chez :init (setq geiser-chez-binary "scheme")) - (jao-load-path "~/usr/jao/geiser/gambit") + (jao-load-path "geiser/gambit") (use-package geiser-gambit) - - (jao-load-path "~/usr/jao/geiser/racket") - (use-package geiser-racket) - #+END_SRC + #+end_src *** Lisp #+begin_src emacs-lisp (use-package sly |