From 770d9d11f378cbe9f1ad8cb4ace0694f16cc031a Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 30 Aug 2021 23:39:46 -0500
Subject: Only install geiser if one or more of the supported schemes are

---
 init.el | 21 ++++++++++++++++++++-
 1 file changed, 20 insertions(+), 1 deletion(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 55049af..68fb5c7 100644
--- a/init.el
+++ b/init.el
@@ -1468,7 +1468,26 @@ successive invocations."
   (:option gcmh-idle-delay 'auto)
   (gcmh-mode +1))
 
-(setup (:straight geiser))
+(setup (:straight-if geiser
+                     (progn
+                       (defvar acdw/schemes-alist
+                         (let (schemes) ; these binaries should be checked...
+                           (dolist (scheme '(("scheme" . geiser-chez) ; chez
+                                             ("petite" . geiser-chez) ; petite
+                                             ("csi" . geiser-chez)    ; chicken
+                                             ("gsi" . geiser-gambit)  ; gambit
+                                             ("gosh" . geiser-gauche) ; gauche
+                                             ("guile" . geiser-guile)
+                                             ("kawa" . geiser-kawa)
+                                             ("mit-scheme" . geiser-mit)
+                                             ("racket" . geiser-racket)
+                                             ("stklos" . geiser-stklos)))
+                             (when-let (binary (executable-find (car scheme)))
+                               (push binary schemes)
+                               ;; and install the proper helper package
+                               (straight-use-package (cdr scheme))))
+                           (nreverse schemes)))
+                       acdw/schemes)))
 
 (setup (:straight (gemini-mode
                    :host nil
-- 
cgit 1.4.1-21-gabe81