diff options
| author | Case Duckworth | 2022-04-12 13:15:08 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-04-12 13:15:08 -0500 |
| commit | c0fa4427671b7a570f8b49e31c34f587495fe19a (patch) | |
| tree | efeaf163a09d6e8f00e90394bd60de9019ea19b5 | |
| parent | Merge branch 'main' of tildegit.org:acdw/emacs (diff) | |
| download | emacs-c0fa4427671b7a570f8b49e31c34f587495fe19a.tar.gz emacs-c0fa4427671b7a570f8b49e31c34f587495fe19a.zip | |
Start the server if not already
| -rw-r--r-- | lisp/+chicken.el | 5 |
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) |