diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Phi.hs | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -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 |