about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-04-12 13:15:08 -0500
committerCase Duckworth2022-04-12 13:15:08 -0500
commitc0fa4427671b7a570f8b49e31c34f587495fe19a (patch)
treeefeaf163a09d6e8f00e90394bd60de9019ea19b5
parentMerge branch 'main' of tildegit.org:acdw/emacs (diff)
downloademacs-c0fa4427671b7a570f8b49e31c34f587495fe19a.tar.gz
emacs-c0fa4427671b7a570f8b49e31c34f587495fe19a.zip
Start the server if not already
-rw-r--r--lisp/+chicken.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/+chicken.el b/lisp/+chicken.el index ef5f616..55fc48e 100644 --- a/lisp/+chicken.el +++ b/lisp/+chicken.el
@@ -12,7 +12,10 @@
12 (save-buffer) 12 (save-buffer)
13 (condition-case e 13 (condition-case e
14 (url-retrieve-synchronously "http://localhost:8080/reload") 14 (url-retrieve-synchronously "http://localhost:8080/reload")
15 (file-error (message "Couldn't ping awful's server. Is it running?")) 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))))
16 (t (message "Some awful error occurred!")))) 19 (t (message "Some awful error occurred!"))))
17 20
18(provide '+chicken) 21(provide '+chicken)