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