about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el1
-rw-r--r--lisp/+chicken.el19
2 files changed, 20 insertions, 0 deletions
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'."
1530 geiser-chicken 1530 geiser-chicken
1531 macrostep-geiser 1531 macrostep-geiser
1532 scheme-complete) 1532 scheme-complete)
1533 (:also-load +chicken)
1533 (setf (alist-get "\\.scm\\'" auto-mode-alist nil nil #'string=) 1534 (setf (alist-get "\\.scm\\'" auto-mode-alist nil nil #'string=)
1534 'scheme-mode)) 1535 'scheme-mode))
1535 1536
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 @@
1;;; +chicken.el --- Chicken Scheme additions -*- lexical-binding: t; -*-
2
3;;; Commentary:
4
5;;; Code:
6
7;; Reload [[https://wiki.call-cc.org/eggref/5/awful][awful]] with a keybinding
8
9(defun +chicken-awful-reload ()
10 "Reload awful by visiting /reload."
11 (interactive)
12 (save-buffer)
13 (condition-case e
14 (url-retrieve-synchronously "http://localhost:8080/reload")
15 (file-error (message "Couldn't ping awful's server. Is it running?"))
16 (t (message "Some awful error occurred!"))))
17
18(provide '+chicken)
19;;; +chicken.el ends here