Add +chicken.el
This commit is contained in:
parent
2e46fd9241
commit
122ee05071
1
init.el
1
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))
|
||||
|
||||
|
|
|
@ -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
|
Loading…
Reference in New Issue