1 files changed, 20 insertions, 1 deletions

@@ -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