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

Indicator of what static root is being used

Browse source
This commit is contained in:
David Botton 2022-01-28 17:06:29 -05:00
parent 3cc757aec3
commit 5a5d71d080
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -1163,6 +1163,9 @@ z.html()"
(setf (title (html-document body)) "CLOG Builder")
(clog-gui-initialize body)
(add-class body "w3-blue-grey")
(setf (z-index (create-panel body :positioning :fixed
:bottom 0 :right 0
:content (format nil "static-root: ~A" clog::*static-root*))) -9999)
(let* ((menu (create-gui-menu-bar body))
(icon (create-gui-menu-icon menu :on-click #'on-help-about-builder))
(file (create-gui-menu-drop-down menu :content "Builder"))