diff options
author | Tom Willemsen | 2012-07-08 21:32:56 +0200 |
---|---|---|
committer | Tom Willemsen | 2012-07-08 21:32:56 +0200 |
commit | 4ab7a443fed09d0d01937b0b8ac424210bd03831 (patch) | |
tree | 385d7f85bcf2d5a0144e32c311d854a6d92bf881 | |
parent | a4fc8384e145cbf1c4112b075c256368ee3237f4 (diff) | |
download | sawfish-naquadah-theme-master.tar.gz sawfish-naquadah-theme-master.zip |
-rw-r--r-- | theme.jl | 32 |
1 files changed, 15 insertions, 17 deletions
@@ -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)))) |