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: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)
(left-edge . -1)
(right-edge . -1)
@ -34,23 +45,10 @@
(x-justify . 6)
(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
(lambda (w type)
(case type
((default) naquadah:frame)
((transient) naquadah:frame)
((shaped) naquadah:transient-frame)
((shaped-transient) naquadah:transient-frame))))
((transient) naquadah:transient-frame)
((shaped) naquadah:frame)
((shaped-transient) naquadah:frame))))