geiser tweaks

1 files changed, 9 insertions, 11 deletions

diff --git a/init.org b/init.org
index cce374f..b350f92 100644
--- a/init.org
+++ b/init.org
@@ -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