mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(fun/gemma): Make acceptor available in a variable

Browse source 
This makes it possible to *stop* the server again in a REPL, which is
useful :)
This commit is contained in:
Vincent Ambo 2020-01-22 11:56:13 +00:00
parent a1d624057c
commit 6fdc5b562d
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
fun/gemma/src/gemma.lisp
View file

@ -29,6 +29,9 @@
(defvar *gemma-port* 4242
"Port on which the Gemma web server listens.")
(defvar *gemma-acceptor* nil
"Hunchentoot acceptor for Gemma's web server.")
(defvar *static-file-location* "frontend/"
"Folder from which to serve static assets. If built inside of Nix,
the path is injected during the build.")
@ -134,10 +137,10 @@ maximum interval."
"/etc/gemma/config.lisp")))
;; Set up web server
(hunchentoot:start
(make-instance 'hunchentoot:easy-acceptor
:port *gemma-port*
:document-root *static-file-location*))
(setq *gemma-acceptor* (make-instance 'hunchentoot:easy-acceptor
:port *gemma-port*
:document-root *static-file-location*))
(hunchentoot:start *gemma-acceptor*)
;; Task listing handler
(hunchentoot:define-easy-handler