From b3518382bb99624c6686b27eb01abc86f82736f6 Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@posteo.net>
Date: Fri, 7 Apr 2023 13:51:59 +0200
Subject: [PATCH] Install Geiser for Chez-, Chicken- and MIT-Scheme

---
 README.org | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/README.org b/README.org
index 3af2300..6c790e9 100644
--- a/README.org
+++ b/README.org
@@ -4771,6 +4771,28 @@ luarocks \
     HISTORY_DIR=/usr/local/opt/readline/lib
 #+end_src
 
+** [[https://en.wikibooks.org/wiki/Scheme_Programming][Scheme Programming]]
+:PROPERTIES:
+:CUSTOM_ID: sec:scheme-programming
+:END:
+
+- [[https://wiki.call-cc.org/emacs#using-chicken-with-emacs][Using Chicken Scheme with Emacs]]
+
+#+begin_src shell -n
+# https://gitlab.com/emacs-geiser/chicken
+# Install the necessary support eggs:
+chicken-install -s apropos chicken-doc srfi-18 srfi-1
+# Update the Chicken documentation database:
+cd $(csi -R chicken.platform -p '(chicken-home)')
+curl https://3e8.org/pub/chicken-doc/chicken-doc-repo-5.tgz | sudo tar zx
+#+end_src
+
+#+begin_src emacs-lisp -n
+(when (ensure-package-installation 'geiser 'geiser-chez 'geiser-chicken
+                                   'geiser-mit)
+  (setopt geiser-chez-binary (executable-find "chez")))
+#+end_src
+
 ** [[https://www.lua.org/][Lua Programming]]
 :PROPERTIES:
 :CUSTOM_ID: sec:lua-programming
@@ -5748,6 +5770,7 @@ contrary to for instance [[https://github.com/Fanael/rainbow-delimiters#readme][
     (add-hook hook #'smartparens-mode))
 
   (dolist (hook '(emacs-lisp-mode-hook
+                  geiser-repl-startup-hook
                   ielm-mode-hook
                   lisp-data-mode-hook
                   lisp-mode-hook