diff --git a/tools/clog-builder-files.lisp b/tools/clog-builder-files.lisp index 399ea92..843f27a 100644 --- a/tools/clog-builder-files.lisp +++ b/tools/clog-builder-files.lisp @@ -106,7 +106,7 @@ (content (center-panel box)) (pac-line (create-form-element content :text :class *builder-package-class*)) (ace (clog-ace:create-clog-ace-element content)) - (status (create-div content :class "w3-tiny w3-border")) + (status (create-div content :class *builder-status-bar-class*)) (lisp-file t) (is-dirty nil) (last-date nil) diff --git a/tools/clog-builder-panels.lisp b/tools/clog-builder-panels.lisp index 21877af..011ee79 100644 --- a/tools/clog-builder-panels.lisp +++ b/tools/clog-builder-panels.lisp @@ -656,6 +656,7 @@ not a temporarily attached one when using select-control." (get-control-list app panel-id))))))) (focus pop-win))))) (setf-next-id content 1) + (setf (css-class-name content) *builder-panel-class*) (setf (overflow content) :auto) (init-control-list app panel-id) ;; Setup panel window diff --git a/tools/clog-builder-settings.lisp b/tools/clog-builder-settings.lisp index e5958ac..72381af 100644 --- a/tools/clog-builder-settings.lisp +++ b/tools/clog-builder-settings.lisp @@ -48,6 +48,7 @@ (defparameter *builder-menu-button-class* "w3-input w3-grey w3-button w3-ripple") (defparameter *builder-pallete-class* "w3-light-grey w3-small") (defparameter *builder-event-list-class* "w3-light-grey w3-small") +(defparameter *builder-panel-class* "w3-white w3-sans-serif w3-medium") ;; Menus (defparameter *builder-menu-bar-class* "w3-bar w3-round w3-small w3-blue-grey w3-card-4") @@ -59,4 +60,5 @@ (defparameter *builder-title-class* "w3-blue-grey w3-round") (defparameter *builder-border-class* "w3-card-4 w3-white w3-border w3-round") (defparameter *builder-package-class* "w3-white w3-round") +(defparameter *builder-status-bar-class* "w3-tiny w3-border") (defparameter *builder-icons-class* "w3-button w3-white w3-round w3-border w3-border-black w3-ripple") diff --git a/tools/preferences.lisp.sample b/tools/preferences.lisp.sample index 84ea573..1db6e82 100644 --- a/tools/preferences.lisp.sample +++ b/tools/preferences.lisp.sample @@ -41,6 +41,7 @@ (setf *builder-menu-button-class* "w3-input w3-grey w3-button w3-ripple") (setf *builder-pallete-class* "w3-light-grey w3-small") (setf *builder-event-list-class* "w3-light-grey w3-small") +(setf *builder-panel-class* "w3-white w3-sans-serif w3-medium") ;; Menus (setf *builder-menu-bar-class* "w3-bar w3-round w3-small w3-blue-grey w3-card-4") @@ -52,4 +53,5 @@ (setf *builder-title-class* "w3-blue-grey w3-round") (setf *builder-border-class* "w3-card-4 w3-white w3-border w3-round") (setf *builder-package-class* "w3-white w3-round") +(setf *builder-status-bar-class* "w3-tiny w3-border") (setf *builder-icons-class* "w3-button w3-white w3-round w3-border w3-border-black w3-ripple")