summaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Phi.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Phi.hs b/src/Phi.hs
index 9597955..6dc18fb 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -12,8 +12,7 @@ import Phi.Widgets.Systray
main :: IO ()
main = do
- runPhi defaultXConfig defaultPanelConfig { panelPosition = Top }
- [alphaBox 0.9 [theTaskbar, brightBorder [theSystray], brightBorder [theClock]]]
+ runPhi defaultXConfig defaultPanelConfig { panelPosition = Top } $ alphaBox 0.9 $ theTaskbar <~> brightBorder theSystray <~> brightBorder theClock
where
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, 0.8) 5 0
activeTaskBorder = normalTaskBorder { borderColor = (1, 1, 1, 0.8)
@@ -53,4 +52,5 @@ main = do
, lineSpacing = (-3)
, clockSize = 75
}
+ brightBorder :: (Widget w d) => w -> Border w d
brightBorder = border normalDesktopBorder