display static root

This commit is contained in:
David Botton 2024-07-01 01:10:06 -04:00
parent eb63715883
commit 3c0a262ee7
3 changed files with 14 additions and 5 deletions

View file

@ -86,6 +86,8 @@
"./static-root/"
"./www/")
(format nil "~A" (asdf:system-source-directory (current-project app)))))
(when (static-root-display app)
(setf (text-value (static-root-display app)) (format nil "static-root: ~A" *static-root*)))
(alert-toast panel "Static Root Set"
*static-root* :color-class "w3-yellow")
(setf clog:*clog-debug*