Abstract out colors and font into variables

This commit is contained in:
Tom Willemse 2024-11-25 23:36:18 -08:00
parent 4eef838dbd
commit 88840ffc2b

View file

@ -4,26 +4,29 @@
(let* ((button-width 30) (let* ((button-width 30)
(title-height button-width) (title-height button-width)
(bg (list 'background "#111414"))
(fg (list 'foreground "#bfbfbf" "#ff9800"))
(font (list 'font (get-font-typed "Pango" "Dosis 14")))
(default-frame (default-frame
`(((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (right-edge . 0) (width . ,button-width) (height . ,title-height) (text . "×") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . close-button)) `((,bg ,fg (right-edge . 0) (width . ,button-width) (height . ,title-height) (text . "×") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . close-button))
((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (right-edge . ,button-width) (width . ,button-width) (height . ,title-height) (text . "") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . maximize-button)) (,bg ,fg (right-edge . ,button-width) (width . ,button-width) (height . ,title-height) (text . "") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . maximize-button))
((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (right-edge . ,(* 2 button-width)) (width . ,button-width) (height . ,button-width) (text . "_") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . iconify-button)) (,bg ,fg (right-edge . ,(* 2 button-width)) (width . ,button-width) (height . ,button-width) (text . "_") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . iconify-button))
((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (left-edge . 0) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "") (x-justify . center) (y-justify . center)) (,bg ,fg (left-edge . 0) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "") (x-justify . center) (y-justify . center))
((background . ("#111414")) (right-edge . 5) (left-edge . 5) (height . 5) (bottom-edge . -5) (class . bottom-border)) (,bg (right-edge . 5) (left-edge . 5) (height . 5) (bottom-edge . -5) (class . bottom-border))
((background . ("#111414")) (left-edge . 0) (width . 5) (height . 5) (bottom-edge . -5) (class . bottom-left-corner)) (,bg (left-edge . 0) (width . 5) (height . 5) (bottom-edge . -5) (class . bottom-left-corner))
((background . ("#111414")) (right-edge . 0) (width . 5) (height . 5) (bottom-edge . -5) (class . bottom-right-corner)) (,bg (right-edge . 0) (width . 5) (height . 5) (bottom-edge . -5) (class . bottom-right-corner))
((background . ("#111414")) (right-edge . ,(* 3 button-width)) (left-edge . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (,bg ,fg ,font (right-edge . ,(* 3 button-width)) (left-edge . ,button-width) (height . ,title-height) (top-edge . ,(- title-height))
(foreground . ("#bfbfbf" "#ff9800")) (font . ,(get-font-typed "Pango" "Dosis 14")) (text . ,window-name) (x-justify . center) (y-justify . center) (class . title)))) (text . ,window-name) (x-justify . center) (y-justify . center) (class . title))))
(shaded-frame (shaded-frame
`(((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (right-edge . 0) (width . ,button-width) (height . ,title-height) (text . "×") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . close-button)) `((,bg ,fg (right-edge . 0) (width . ,button-width) (height . ,title-height) (text . "×") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . close-button))
((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (right-edge . ,button-width) (width . ,button-width) (height . ,title-height) (text . "") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . maximize-button)) (,bg ,fg (right-edge . ,button-width) (width . ,button-width) (height . ,title-height) (text . "") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . maximize-button))
((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (right-edge . ,(* 2 button-width)) (width . ,button-width) (height . ,title-height) (text . "_") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . iconify-button)) (,bg ,fg (right-edge . ,(* 2 button-width)) (width . ,button-width) (height . ,title-height) (text . "_") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . iconify-button))
((background . ("#111414")) (foreground "#bfbfbf" "#ff9800") (left-edge . 0) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "") (x-justify . center) (y-justify . center)) (,bg ,fg (left-edge . 0) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "") (x-justify . center) (y-justify . center))
((background . ("#111414")) (right-edge . ,(* 3 button-width)) (left-edge . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (,bg ,fg ,font (right-edge . ,(* 3 button-width)) (left-edge . ,button-width) (height . ,title-height) (top-edge . ,(- title-height))
(foreground . ("#bfbfbf" "#ff9800")) (font . ,(get-font-typed "Pango" "Dosis 14")) (text . ,window-name) (x-justify . center) (y-justify . center) (class . title))))) (text . ,window-name) (x-justify . center) (y-justify . center) (class . title)))))
(add-frame-style 'yoshi (add-frame-style 'yoshi
(lambda (w type) (lambda (w type)
(case type (case type