From 122ee050716789eff27e4df5d7b80937476355df Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sat, 2 Apr 2022 13:52:40 -0500
Subject: Add +chicken.el

---
 lisp/+chicken.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 lisp/+chicken.el

(limited to 'lisp')

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
-- 
cgit 1.4.1-21-gabe81