From 20e3f3c43ee8c3d35313ecd41daafc34c13bdefd Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremydormitzer@lola.com>
Date: Tue, 21 Jul 2020 09:43:34 -0400
Subject: [PATCH] Teach Geiser to detect installed Schemes

---
 emacs/init.org | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/emacs/init.org b/emacs/init.org
index dce0d60..c547b0a 100755
--- a/emacs/init.org
+++ b/emacs/init.org
@@ -3408,6 +3408,14 @@ Tell emacs about file extensions which should activate scheme-mode:
 #+BEGIN_SRC emacs-lisp
   (use-package geiser
     :commands (run-geiser)
+    :config
+    (setq geiser-active-implementations
+          (cl-reduce (lambda (acc val)
+                       (if (executable-find (symbol-name val))
+                           (cons val acc)
+                         acc))
+                     '(guile racket chicken chez mit chibi gambit)
+                     :initial-value nil))
     :general
     (geiser-debug-mode-map "SPC" leader-map))
 #+END_SRC