From e5b77a4eaa8509778569d110d9abbaf0ba2deb01 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 26 Dec 2021 13:05:20 -0600
Subject: SICP!

---
 init.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/init.el b/init.el
index 7302f6b..8940389 100644
--- a/init.el
+++ b/init.el
@@ -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)
-- 
cgit 1.4.1-21-gabe81