[Sawfish] 2 new blue styles for StyleTab

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

Here you can download 2 new blue styles for StyleTab:
http://mitglied.multimania.de/fuchur2004/styles.tar.bz2
and a patch for theme.jl by this mail.

-- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

--- theme-orgi.jl	2011-08-26 18:51:15.000000000 +0200
+++ theme.jl	2011-08-26 18:50:36.000000000 +0200
@@ -54,7 +54,7 @@
 
 (defcustom styletab:style 'Dark "Frame and button style."
   :group (appearance StyleTab:group StyleTab:settings-group)
-  :options (Reduce Dark DarkColor Silver SilverColor Smoothly)
+  :options (BlueGlass BlueDarker Reduce Dark DarkColor Silver SilverColor Smoothly)
   :type symbol)
 
 (defcustom styletab:titlebar-place 'top "Titlebar default place."
@@ -185,6 +185,8 @@
     (if (eq styletab:custom-colors t)
         (title-colors-custom)
       (case styletab:style
+            ((BlueGlass) (title-colors-blueglass))
+            ((BlueDarker) (title-colors-bluedarker))
             ((Reduce) (title-colors-reduce))
             ((Dark) (title-colors-dark))
             ((DarkColor) (title-colors-dark))
@@ -198,6 +200,16 @@
       (inactive . ,styletab:inactive-color) (inactive-highlighted . ,styletab:inactive-highlighted-color) 
       (inactive-clicked . ,styletab:inactive-highlighted-color))))
 
+(define title-colors-blueglass
+  (lambda ()
+    `((focused . "#E5E5E5") (highlighted . "#FDFDFD") (clicked . "#FDFDFD") (inactive . "#2B2B2B") (inactive-highlighted . "#000000")
+      (inactive-clicked . "#000000"))))
+
+(define title-colors-bluedarker
+  (lambda ()
+    `((focused . "#E5E5E5") (highlighted . "#FDFDFD") (clicked . "#FDFDFD") (inactive . "#B8B8B8") (inactive-highlighted . "#CFCFCF")
+      (inactive-clicked . "#CFCFCF"))))
+
 (define title-colors-reduce
   (lambda ()
     `((focused . "#E5E5E5") (highlighted . "#FDFDFD") (clicked . "#FDFDFD") (inactive . "#B1B1B1") (inactive-highlighted . "#CBCBCB")
@@ -224,6 +236,8 @@
     (if (eq styletab:custom-button-width t)
         (button-width-set)
       (case styletab:style
+            ((BlueGlass) (button-width-blueglass))
+            ((BlueDarker) (button-width-blueglass))
             ((Reduce) (button-width-reduce))
             ((Dark) (button-width-dark))
             ((DarkColor) (button-width-dark))
@@ -236,6 +250,8 @@
     (if (eq styletab:custom-button-width nil)
         (button-width-zero)
       (case styletab:style
+            ((BlueGlass) (button-width-blueglass))
+            ((BlueDarker) (button-width-blueglass))
             ((Reduce) (button-width-reduce))
             ((Dark) (button-width-dark))
             ((DarkColor) (button-width-dark))
@@ -245,6 +261,7 @@
 
 (define button-width-set (lambda () (+ styletab:button-width (button-width-add))))
 (define button-width-zero (lambda () 0))
+(define button-width-blueglass (lambda () 0))
 (define button-width-reduce (lambda () 0))
 (define button-width-dark (lambda () 8))
 (define button-width-silver (lambda () -4))
@@ -253,6 +270,8 @@
 (define tabbar-right-edge-width
   (lambda ()
     (case styletab:style
+          ((BlueGlass) 3)
+          ((BlueDarker) 3)
           ((Reduce) 6)
           ((Dark) 3)
           ((DarkColor) 3)

Attachment: signature.asc
Description: PGP signature