summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGravatar Tom Willemsen2012-07-08 21:32:56 +0200
committerGravatar Tom Willemsen2012-07-08 21:32:56 +0200
commit4ab7a443fed09d0d01937b0b8ac424210bd03831 (patch)
tree385d7f85bcf2d5a0144e32c311d854a6d92bf881
parenta4fc8384e145cbf1c4112b075c256368ee3237f4 (diff)
downloadsawfish-naquadah-theme-master.tar.gz
sawfish-naquadah-theme-master.zip
Remove titlebar from transient windowsHEADmaster
-rw-r--r--theme.jl32
1 files changed, 15 insertions, 17 deletions
diff --git a/theme.jl b/theme.jl
index 8797dc8..a1a972c 100644
--- a/theme.jl
+++ b/theme.jl
@@ -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))))