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/" "./static-root/"
"./www/") "./www/")
(format nil "~A" (asdf:system-source-directory (current-project app))))) (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:" (input-dialog obj "Run form:"
(lambda (result) (lambda (result)
(when result (when result

2
tools/clog-builder-projects.lisp
View file

@ -86,6 +86,8 @@
"./static-root/" "./static-root/"
"./www/") "./www/")
(format nil "~A" (asdf:system-source-directory (current-project app))))) (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" (alert-toast panel "Static Root Set"
*static-root* :color-class "w3-yellow") *static-root* :color-class "w3-yellow")
(setf clog:*clog-debug* (setf clog:*clog-debug*

15
tools/clog-builder.lisp
View file

@ -33,6 +33,10 @@ clog-builder window.")
:accessor stdin :accessor stdin
:initform nil :initform nil
:documentation "The standard-input for this instance") :documentation "The standard-input for this instance")
(static-root-display
:accessor static-root-display
:initform nil
:documentation "Display area for static-root")
(copy-buf (copy-buf
:accessor copy-buf :accessor copy-buf
:initform nil :initform nil
@ -389,11 +393,12 @@ clog-builder window.")
(when safe (when safe
(with-clog-debugger (body :standard-output (stdout app)) (with-clog-debugger (body :standard-output (stdout app))
(when *builder-window-show-static-root-class* (when *builder-window-show-static-root-class*
(setf (z-index (create-panel body :positioning :fixed (setf (static-root-display app)
:bottom 0 :right 0 (create-panel body :positioning :fixed
:class *builder-window-show-static-root-class* :bottom 0 :right 0
:content (format nil "static-root: ~A" clog:*static-root*))) :class *builder-window-show-static-root-class*
-9999)) :content (format nil "static-root: ~A" *static-root*)))
(setf (z-index (static-root-display app)) -9999))
(let* ((menu (create-gui-menu-bar body)) (let* ((menu (create-gui-menu-bar body))
(icon (create-gui-menu-icon menu :image-url img-clog-icon (icon (create-gui-menu-icon menu :image-url img-clog-icon
:on-click #'on-help-about-builder)) :on-click #'on-help-about-builder))