From 0fefcaa35f217ca2e1f15e2dd77742adfd231571 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sun, 17 Jul 2011 19:20:19 +0200
Subject: Some initial systray code

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

(limited to 'src')

diff --git a/src/Phi.hs b/src/Phi.hs
index ea35633..e9bf43f 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -6,11 +6,13 @@ import Phi.X11
 
 import Phi.Widgets.Clock
 import Phi.Widgets.Taskbar
+import Phi.Widgets.Systray
+
 
 main :: IO ()
 main = do
   runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
-    [theTaskbar, brightBorder [theClock]]
+    [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
       activeTaskBorder = normalTaskBorder { borderColor = (1, 1, 1, 0.8)
@@ -44,6 +46,8 @@ main = do
                                                 , desktopStyle = Just (normalDesktopStyle, currentDesktopStyle)
                                                 }
       
+      theSystray = systray
+      
       theClock = clock defaultClockConfig { clockFormat = "<span font='Sans 8'>%R</span>\n<span font='Sans 6'>%A %d %B</span>"
                                           , lineSpacing = (-2)
                                           , clockSize = 75
-- 
cgit v1.2.3