diff options
Diffstat (limited to 'lisp/+chicken.el')
| -rw-r--r-- | lisp/+chicken.el | 12 |
1 files changed, 12 insertions, 0 deletions
| diff --git a/lisp/+chicken.el b/lisp/+chicken.el index 55fc48e..15713f8 100644 --- a/lisp/+chicken.el +++ b/lisp/+chicken.el | |||
| @@ -18,5 +18,17 @@ | |||
| 18 | "awful" "--development-mode" (buffer-file-name)))) | 18 | "awful" "--development-mode" (buffer-file-name)))) |
| 19 | (t (message "Some awful error occurred!")))) | 19 | (t (message "Some awful error occurred!")))) |
| 20 | 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 | |||
| 21 | (provide '+chicken) | 33 | (provide '+chicken) |
| 22 | ;;; +chicken.el ends here | 34 | ;;; +chicken.el ends here |