;; Name : yoshi ;; Author : Tom Willemse ;; License : GPL-3+ (let* ((button-width 30) (title-height button-width) (backgroud-color "#111414") (bg (list 'background backgroud-color)) (button-bg (list 'background backgroud-color backgroud-color "#222424")) (fg (list 'foreground "#bfbfbf" "#ff9800")) (font (list 'font (get-font-typed "Pango" "Dosis 14"))) (default-frame `((,button-bg ,fg (right-edge . 5) (width . ,button-width) (height . ,title-height) (text . "×") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . close-button)) (,button-bg ,fg (right-edge . ,(+ button-width 5)) (width . ,button-width) (height . ,title-height) (text . "☐") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . maximize-button)) (,button-bg ,fg (right-edge . ,(+ (* 2 button-width) 5)) (width . ,button-width) (height . ,button-width) (text . "_") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . iconify-button)) (,button-bg ,fg (left-edge . 5) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "⮟") (x-justify . center) (y-justify . center)) (,bg (right-edge . 5) (left-edge . 5) (height . 5) (bottom-edge . -5) (class . bottom-border)) (,bg (left-edge . 0) (top-edge . ,(- title-height)) (width . 5) (height . 5) (class . top-left-corner)) (,bg (left-edge . 0) (top-edge . ,(- (- title-height 5))) (width . 5) (height . ,(- title-height 5))) (,bg (right-edge . 0) (top-edge . ,(- title-height)) (width . 5) (height . 5) (class . top-right-corner)) (,bg (right-edge . 0) (top-edge . ,(- (- title-height 5))) (width . 5) (height . ,(- title-height 5))) (,bg (left-edge . 0) (width . 5) (height . 5) (bottom-edge . -5) (class . bottom-left-corner)) (,bg (right-edge . 0) (width . 5) (height . 5) (bottom-edge . -5) (class . bottom-right-corner)) (,bg ,fg ,font (right-edge . ,(+ (* 3 button-width) 5)) (left-edge . ,(+ button-width 5)) (height . ,title-height) (top-edge . ,(- title-height)) (text . ,window-name) (x-justify . center) (y-justify . center) (class . title)))) (shaded-frame `((,button-bg ,fg (right-edge . 5) (width . ,button-width) (height . ,title-height) (text . "×") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . close-button)) (,button-bg ,fg (right-edge . ,(+ button-width 5)) (width . ,button-width) (height . ,title-height) (text . "☐") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . maximize-button)) (,button-bg ,fg (right-edge . ,(+ (* 2 button-width) 5)) (width . ,button-width) (height . ,title-height) (text . "_") (x-justify . center) (y-justify . center) (top-edge . ,(- title-height)) (class . iconify-button)) (,button-bg ,fg (left-edge . 5) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "⮝") (x-justify . center) (y-justify . center)) (,bg (left-edge . 0) (top-edge . ,(- title-height)) (width . 5) (height . ,title-height)) (,bg (right-edge . 0) (top-edge . ,(- title-height)) (width . 5) (height . ,title-height)) (,bg ,fg ,font (right-edge . ,(+ (* 3 button-width) 5)) (left-edge . ,(+ button-width 5)) (height . ,title-height) (top-edge . ,(- title-height)) (text . ,window-name) (x-justify . center) (y-justify . center) (class . title))))) (add-frame-style 'yoshi (lambda (w type) (case type ((default) default-frame) ((shaped) shaded-frame) ((shaped-transient) shaded-frame)))))