From cc55ee76781e1f29957b64981d70c6c9f3f088ec Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Mon, 18 Jul 2011 16:31:19 +0200
Subject: Add top and bottom desktop border margins and paddings, for the sake
 of consistency

---
 src/Phi.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/Phi.hs b/src/Phi.hs
index 4749bde..e8a7c8b 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -14,7 +14,7 @@ main = do
   runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
     [theTaskbar, brightBorder [theSystray], brightBorder [theClock]]
     where
-      normalTaskBorder = BorderConfig (BorderWidth 2 (-3) 2 7) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.8) (0.45, 0.45, 0.45, 1) 5 0
+      normalTaskBorder = BorderConfig (BorderWidth (-1) (-3) (-1) 7) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.8) (0.45, 0.45, 0.45, 1) 5 0
       activeTaskBorder = normalTaskBorder { borderColor = (1, 1, 1, 0.8)
                                           , backgroundColor = (0, 0, 0, 1)
                                           }
@@ -41,7 +41,7 @@ main = do
                                                }
                         
       
-      theTaskbar = taskbar defaultTaskbarConfig { normalTaskStyle = taskStyle {taskIconStyle = desaturateIconStyle 0.6}
+      theTaskbar = taskbar defaultTaskbarConfig { normalTaskStyle = taskStyle {taskIconStyle = desaturateIconStyle 0.7}
                                                 , activeTaskStyle = taskStyle {taskBorder = activeTaskBorder}
                                                 , desktopStyle = Just (normalDesktopStyle, currentDesktopStyle)
                                                 }
@@ -49,7 +49,7 @@ main = do
       theSystray = systray
       
       theClock = clock defaultClockConfig { clockFormat = "<span font='Sans 8'>%R</span>\n<span font='Sans 6'>%A %d %B</span>"
-                                          , lineSpacing = (-2)
+                                          , lineSpacing = (-3)
                                           , clockSize = 75
                                           }
-      brightBorder = border $ BorderConfig (simpleBorderWidth 1) 1 (BorderWidth (-2) 3 0 3) (0.5, 0.5, 0.5, 0.65) (0.85, 0.85, 0.85, 0.8) 5 0
+      brightBorder = border normalDesktopBorder
-- 
cgit v1.2.3