summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Phi.hs6
1 files changed, 5 insertions, 1 deletions
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