1 files changed, 25 insertions, 0 deletions

@@ -624,6 +624,29 @@ See also `crux-reopen-as-root-mode'."
   (:option gcmh-idle-delay 'auto)
   (gcmh-mode +1))
 
+(setup (:straight-when geiser
+         (progn
+           (defvar +schemes
+             (let (schemes)
+               (dolist (scheme '(("scheme" . geiser-chez) ; chez
+                                 ("petite" . geiser-chez) ; petite
+                                 ("csi" . geiser-chicken)    ; chicken
+                                 ("gsi" . geiser-gambit)
+                                 ("gosh" . geiser-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)))
+           +schemes))
+  (:file-match (rx ".rkt" eos)
+               (rx ".scm" eos)))
+
 (setup (:straight helpful)
   (run-with-idle-timer 0.5 nil
                        'require 'helpful)
@@ -842,6 +865,8 @@ See also `crux-reopen-as-root-mode'."
     "M-!" 'shell-command+)
   (:+key "M-!" 'shell-command+))
 
+(setup (:straight sicp))
+
 (setup (:straight (simple-modeline
                    :fork (:repo "duckwork/simple-modeline")))
   (:also-load +modeline)