23 lines
719 B
EmacsLisp
23 lines
719 B
EmacsLisp
;;; +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 (progn
|
|
(message "Couldn't ping awful's server. Starting...")
|
|
(start-process "awful" (generate-new-buffer "*awful*")
|
|
"awful" "--development-mode" (buffer-file-name))))
|
|
(t (message "Some awful error occurred!"))))
|
|
|
|
(provide '+chicken)
|
|
;;; +chicken.el ends here
|