From 55edb549a5b8d86821e360d2d9e19a889d59b4b9 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Thu, 14 Jul 2011 22:50:03 +0200
Subject: Use Cairo for background rendering

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

(limited to 'src')

diff --git a/src/Phi.hs b/src/Phi.hs
index 33b3903..e035868 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -3,18 +3,18 @@ import Phi.Widget
 import Phi.Panel
 import Phi.Border
 import Phi.X11
+
 import Phi.Widgets.Clock
+import Phi.Widgets.Taskbar
 
 main :: IO ()
 main = do
   runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
-    [border border1 [border border3 [], border border3 []], border border2 [], border brightBorder [theClock]]
+    [theTaskbar, brightBorder [theClock]]
     where
+      theTaskbar = taskbar defaultTaskbarConfig
       theClock = clock defaultClockConfig { clockFormat = "<span font='Sans 8'>%R</span>\n<span font='Sans 6'>%A %d %B</span>"
                                           , lineSpacing = (-2)
                                           , clockSize = 75
                                           }
-      brightBorder = 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
-      border1 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.25, 0.25, 0.25, 0.5) 7 2
-      border2 = BorderConfig (simpleBorderWidth 1) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.5, 0.0, 0.25, 0.5) 7 1
-      border3 = BorderConfig (simpleBorderWidth 0) 1 (simpleBorderWidth 2) (1, 1, 1, 0.5) (0.0, 0.0, 0.5, 0.5) 3 1
+      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
-- 
cgit v1.2.3