jbrechtel/spine
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

feat: add spine-skip-server-start guard for testing

Browse Source
This commit is contained in:
James Brechtel
2026-06-20 16:56:46 -04:00
parent 362a83ca42
commit a93efd3617
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
spine.el
+10 -5
View File
@@ -43,6 +43,10 @@ Returns the rendered string."
(buffer-string)) (buffer-string))
context)) context))
(defvar spine-skip-server-start nil
"When non-nil, do not start the HTTP server.
Set by test harnesses that only need the model functions.")
;; --- handlers --------------------------------------------------------- ;; --- handlers ---------------------------------------------------------
(defservlet hello text/html () (defservlet hello text/html ()
@@ -51,11 +55,12 @@ Returns the rendered string."
("message" "Hello from Emacs."))))) ("message" "Hello from Emacs.")))))
;; --- start ------------------------------------------------------------ ;; --- start ------------------------------------------------------------
(setq httpd-host spine-host) (unless spine-skip-server-start
(setq httpd-port spine-port) (setq httpd-host spine-host)
(httpd-start) (setq httpd-port spine-port)
(message "Spine listening on http://%s:%d" (httpd-start)
(or spine-host "localhost") spine-port) (message "Spine listening on http://%s:%d"
(or spine-host "localhost") spine-port))
(provide 'spine) (provide 'spine)
;;; spine.el ends here ;;; spine.el ends here