ryuslash/sawfish-naquadah-theme
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove titlebar from transient windows

Browse source
This commit is contained in:
Tom Willemsen 2012-07-08 21:32:56 +02:00
parent a4fc8384e1
commit 4ab7a443fe
1 changed files with 15 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
theme.jl
View file

@ -3,7 +3,18 @@
(define naquadah:foregrounds '("#555753" "#eeeeec")) (define naquadah:foregrounds '("#555753" "#eeeeec"))
(define naquadah:transient-frame (define naquadah:transient-frame
`(;; title border `(;; 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
((background . ,naquadah:rbackgrounds) ((background . ,naquadah:rbackgrounds)
(left-edge . -1) (left-edge . -1)
(right-edge . -1) (right-edge . -1)
@ -34,23 +45,10 @@
(x-justify . 6) (x-justify . 6)
(class . title)))) (class . title))))
;; frame layout
(define naquadah:frame
`(;; border
((background . ,naquadah:backgrounds)
(left-edge . -1)
(right-edge . -1)
(top-edge . -1)
(bottom-edge . 0)
(below-client . t)
(class . left-border))
,@naquadah:transient-frame))
(add-frame-style 'naquadah (add-frame-style 'naquadah
(lambda (w type) (lambda (w type)
(case type (case type
((default) naquadah:frame) ((default) naquadah:frame)
((transient) naquadah:frame) ((transient) naquadah:transient-frame)
((shaped) naquadah:transient-frame) ((shaped) naquadah:frame)
((shaped-transient) naquadah:transient-frame)))) ((shaped-transient) naquadah:frame))))