mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 10:40:45 -08:00
Code Issues Projects Releases Wiki Activity

additional styles

Browse source
This commit is contained in:
David Botton 2024-03-27 11:06:12 -04:00
parent 0ed9d6d242
commit 247cda1fef
4 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -106,7 +106,7 @@
(content (center-panel box)) (content (center-panel box))
(pac-line (create-form-element content :text :class *builder-package-class*)) (pac-line (create-form-element content :text :class *builder-package-class*))
(ace (clog-ace:create-clog-ace-element content)) (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) (lisp-file t)
(is-dirty nil) (is-dirty nil)
(last-date nil) (last-date nil)

1
tools/clog-builder-panels.lisp
View file

@ -656,6 +656,7 @@ not a temporarily attached one when using select-control."
(get-control-list app panel-id))))))) (get-control-list app panel-id)))))))
(focus pop-win))))) (focus pop-win)))))
(setf-next-id content 1) (setf-next-id content 1)
(setf (css-class-name content) *builder-panel-class*)
(setf (overflow content) :auto) (setf (overflow content) :auto)
(init-control-list app panel-id) (init-control-list app panel-id)
;; Setup panel window ;; Setup panel window

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

@ -48,6 +48,7 @@
(defparameter *builder-menu-button-class* "w3-input w3-grey w3-button w3-ripple") (defparameter *builder-menu-button-class* "w3-input w3-grey w3-button w3-ripple")
(defparameter *builder-pallete-class* "w3-light-grey w3-small") (defparameter *builder-pallete-class* "w3-light-grey w3-small")
(defparameter *builder-event-list-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 ;; Menus
(defparameter *builder-menu-bar-class* "w3-bar w3-round w3-small w3-blue-grey w3-card-4") (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-title-class* "w3-blue-grey w3-round")
(defparameter *builder-border-class* "w3-card-4 w3-white w3-border 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-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") (defparameter *builder-icons-class* "w3-button w3-white w3-round w3-border w3-border-black w3-ripple")

2
tools/preferences.lisp.sample vendored
View file

@ -41,6 +41,7 @@
(setf *builder-menu-button-class* "w3-input w3-grey w3-button w3-ripple") (setf *builder-menu-button-class* "w3-input w3-grey w3-button w3-ripple")
(setf *builder-pallete-class* "w3-light-grey w3-small") (setf *builder-pallete-class* "w3-light-grey w3-small")
(setf *builder-event-list-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 ;; Menus
(setf *builder-menu-bar-class* "w3-bar w3-round w3-small w3-blue-grey w3-card-4") (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-title-class* "w3-blue-grey w3-round")
(setf *builder-border-class* "w3-card-4 w3-white w3-border 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-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") (setf *builder-icons-class* "w3-button w3-white w3-round w3-border w3-border-black w3-ripple")