diff options
| author | Case Duckworth | 2022-04-02 13:52:40 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-02 13:52:40 -0500 |
| commit | 122ee050716789eff27e4df5d7b80937476355df (patch) | |
| tree | bad5bd2861139a7d0dee85a3b6ae866c06beb93f /lisp/+chicken.el | |
| parent | Ignore scratch.el (diff) | |
| download | emacs-122ee050716789eff27e4df5d7b80937476355df.tar.gz emacs-122ee050716789eff27e4df5d7b80937476355df.zip | |
Add +chicken.el
Diffstat (limited to 'lisp/+chicken.el')
| -rw-r--r-- | lisp/+chicken.el | 19 |
1 files changed, 19 insertions, 0 deletions
| 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 | ||