2 files changed, 20 insertions, 0 deletions

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