From 122ee050716789eff27e4df5d7b80937476355df Mon Sep 17 00:00:00 2001
From: Case Duckworth <acdw@acdw.net>
Date: Sat, 2 Apr 2022 13:52:40 -0500
Subject: [PATCH] Add +chicken.el

---
 init.el          |  1 +
 lisp/+chicken.el | 19 +++++++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 lisp/+chicken.el

diff --git a/init.el b/init.el
index 9c44e8b..8e92143 100644
--- a/init.el
+++ b/init.el
@@ -1530,6 +1530,7 @@ See also `crux-reopen-as-root-mode'."
                   geiser-chicken
                   macrostep-geiser
                   scheme-complete)
+  (:also-load +chicken)
   (setf (alist-get "\\.scm\\'" auto-mode-alist nil nil #'string=)
         'scheme-mode))
 
diff --git a/lisp/+chicken.el b/lisp/+chicken.el
new file mode 100644
index 0000000..ef5f616
--- /dev/null
+++ b/lisp/+chicken.el
@@ -0,0 +1,19 @@
+;;; +chicken.el --- Chicken Scheme additions -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;;; Code:
+
+;; Reload [[https://wiki.call-cc.org/eggref/5/awful][awful]] with a keybinding
+
+(defun +chicken-awful-reload ()
+  "Reload awful by visiting /reload."
+  (interactive)
+  (save-buffer)
+  (condition-case e
+      (url-retrieve-synchronously "http://localhost:8080/reload")
+    (file-error (message "Couldn't ping awful's server.  Is it running?"))
+    (t (message "Some awful error occurred!"))))
+
+(provide '+chicken)
+;;; +chicken.el ends here