yoshi-theme-sawfish/theme.jl

;; Name    : yoshi
;; Author  : Tom Willemse <tom@ryuslash.org>
;; 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 . 0) (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) (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)) (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 . 0) (width . ,button-width) (height . ,title-height) (top-edge . ,(- title-height)) (class . menu-button) (text . "⮝") (x-justify . center) (y-justify . center))

           (,bg ,fg ,font (right-edge . ,(* 3 button-width)) (left-edge . ,button-width) (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)))))