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

display static root

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-project-tree.lisp
View file

@ -91,6 +91,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*)))
(input-dialog obj "Run form:"
(lambda (result)
(when result