2012-06-24 22:20:08 +02:00
|
|
|
(define naquadah:backgrounds '("#2e3436" "#0c191c"))
|
|
|
|
|
(define naquadah:rbackgrounds (reverse naquadah:backgrounds))
|
|
|
|
|
(define naquadah:foregrounds '("#555753" "#eeeeec"))
|
|
|
|
|
|
|
|
|
|
(define naquadah:transient-frame
|
2012-07-08 21:32:56 +02:00
|
|
|
`(;; border
|
|
|
|
|
((background . ,naquadah:backgrounds)
|
|
|
|
|
(left-edge . -1)
|
|
|
|
|
(right-edge . -1)
|
|
|
|
|
(top-edge . -1)
|
|
|
|
|
(bottom-edge . -1)
|
|
|
|
|
(below-client . t))))
|
|
|
|
|
|
|
|
|
|
(define naquadah:frame
|
|
|
|
|
`(,@naquadah:transient-frame
|
|
|
|
|
|
|
|
|
|
;; title border
|
2012-06-24 22:20:08 +02:00
|
|
|
((background . ,naquadah:rbackgrounds)
|
|
|
|
|
(left-edge . -1)
|
|
|
|
|
(right-edge . -1)
|
|
|
|
|
(bottom-edge . -20)
|
|
|
|
|
(height . 20))
|
|
|
|
|
|
|
|
|
|
;; close button
|
|
|
|
|
((background . ,naquadah:backgrounds)
|
|
|
|
|
(foreground . ,naquadah:foregrounds)
|
|
|
|
|
(right-edge . 0)
|
|
|
|
|
(bottom-edge . -19)
|
|
|
|
|
(width . 17)
|
|
|
|
|
(height . 18)
|
|
|
|
|
(text . "x")
|
|
|
|
|
(x-justify . center)
|
|
|
|
|
(y-justify . center)
|
|
|
|
|
(class . close-button))
|
|
|
|
|
|
|
|
|
|
;; title
|
|
|
|
|
((background . ,naquadah:backgrounds)
|
|
|
|
|
(foreground . "#f57900")
|
|
|
|
|
(left-edge . 0)
|
|
|
|
|
(right-edge . 16)
|
|
|
|
|
(bottom-edge . -19)
|
|
|
|
|
(height . 18)
|
|
|
|
|
(text . ,window-name)
|
|
|
|
|
(y-justify . center)
|
|
|
|
|
(x-justify . 6)
|
|
|
|
|
(class . title))))
|
|
|
|
|
|
|
|
|
|
(add-frame-style 'naquadah
|
|
|
|
|
(lambda (w type)
|
|
|
|
|
(case type
|
|
|
|
|
((default) naquadah:frame)
|
2012-07-08 21:32:56 +02:00
|
|
|
((transient) naquadah:transient-frame)
|
|
|
|
|
((shaped) naquadah:frame)
|
|
|
|
|
((shaped-transient) naquadah:frame))))
|
