mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

Handle static-root better.

Browse source
This commit is contained in:
David Botton 2021-01-18 15:11:38 -05:00
parent 6adcb731f5
commit 9c7c112e22
3 changed files with 19 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
clog-system.lisp
View file

@ -34,7 +34,8 @@
"Inititalize CLOG on a socket using HOST and PORT to serve BOOT-FILE as
the default route to establish web-socket connections and static files
located at STATIC-ROOT. If CLOG was already initialized and not shut
down, this function does the same as set-on-new-window."
down, this function does the same as set-on-new-window. If the variable
clog:*overide-static-root* is set STATIC-ROOT will be ignored."
(if *on-new-window*
(set-on-new-window on-new-window-handler)
(progn
@ -44,7 +45,9 @@ down, this function does the same as set-on-new-window."
:host host
:port port
:boot-file boot-file
:static-root static-root))))
:static-root (if (boundp '*overide-static-root*)
*overide-static-root*
static-root)))))
;;;;;;;;;;;;;;;;;;;;;;;
;; set-on-new-window ;;