diff options
Diffstat (limited to 'lisp/+chicken.el')
-rw-r--r-- | lisp/+chicken.el | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/lisp/+chicken.el b/lisp/+chicken.el deleted file mode 100644 index 15713f8..0000000 --- a/lisp/+chicken.el +++ /dev/null | |||
@@ -1,34 +0,0 @@ | |||
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 (progn | ||
16 | (message "Couldn't ping awful's server. Starting...") | ||
17 | (start-process "awful" (generate-new-buffer "*awful*") | ||
18 | "awful" "--development-mode" (buffer-file-name)))) | ||
19 | (t (message "Some awful error occurred!")))) | ||
20 | |||
21 | (defun +chicken-indentation-insinuate () | ||
22 | "Insinuate indentation from | ||
23 | https://wiki.call-cc.org/emacs#tweaking-stock-scheme-mode-indentation." | ||
24 | (defun scheme-module-indent (state indent-point normal-indent) 0) | ||
25 | (put 'module 'scheme-indent-function 'scheme-module-indent) | ||
26 | (put 'and-let* 'scheme-indent-function 1) | ||
27 | (put 'parameterize 'scheme-indent-function 1) | ||
28 | (put 'handle-exceptions 'scheme-indent-function 1) | ||
29 | (put 'when 'scheme-indent-function 1) | ||
30 | (put 'unless 'scheme-indent-function 1) | ||
31 | (put 'match 'scheme-indent-function 1)) | ||
32 | |||
33 | (provide '+chicken) | ||
34 | ;;; +chicken.el ends here | ||