From d5bf2e15ac30c643008a1ae1d05b847d1ff63941 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 21 Nov 2021 22:35:44 +0000
Subject: today's nits

---
 init.org | 29 +++++++++++++++++------------
 1 file changed, 17 insertions(+), 12 deletions(-)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 7802fea..98cd596 100644
--- a/init.org
+++ b/init.org
@@ -2425,12 +2425,17 @@
       (jao-load-path "geiser/geiser/elisp")
       (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))
+        (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history"
+              geiser-repl-startup-time 20000
+              geiser-debug-auto-display-images-p t
+              geiser-active-implementations '(guile)
+              geiser-default-implementation 'guile))
 
-      (jao-load-path "geiser/mit")
-      (use-package geiser-mit)
+      (jao-load-path "geiser/guile")
+      (use-package geiser-guile)
+
+      ;; (jao-load-path "geiser/mit")
+      ;; (use-package geiser-mit)
 
       ;; (jao-load-path "geiser/chicken")
       ;; (use-package geiser-chicken)
@@ -2438,15 +2443,15 @@
       ;; (jao-load-path "geiser/chibi")
       ;; (use-package geiser-chibi)
 
-      (jao-load-path "geiser/guile")
-      (use-package geiser-guile)
+      ;; (jao-load-path "geiser/chez")
+      ;; (use-package geiser-chez
+      ;;   :init (setq geiser-chez-binary "scheme"))
+
+      ;; (jao-load-path "geiser/gambit")
+      ;; (use-package geiser-gambit)
 
-      (jao-load-path "geiser/chez")
-      (use-package geiser-chez
-        :init (setq geiser-chez-binary "scheme"))
+      (jao-define-attached-buffer "^\\* Geiser .* \\*" 0.4)
 
-      (jao-load-path "geiser/gambit")
-      (use-package geiser-gambit)
     #+end_src
 *** Pie
     #+begin_src emacs-lisp
-- 
cgit v1.2.3