From 9d1415a2d35a10be828fac5c9534ba477233aa49 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Mon, 18 Jul 2011 18:06:00 +0200 Subject: Added AlphaBox widget --- src/Phi.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Phi.hs b/src/Phi.hs index e8a7c8b..b546e10 100644 --- a/src/Phi.hs +++ b/src/Phi.hs @@ -4,6 +4,7 @@ import Phi.Panel import Phi.Border import Phi.X11 +import Phi.Widgets.AlphaBox import Phi.Widgets.Clock import Phi.Widgets.Taskbar import Phi.Widgets.Systray @@ -12,18 +13,18 @@ import Phi.Widgets.Systray main :: IO () main = do runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom } - [theTaskbar, brightBorder [theSystray], brightBorder [theClock]] + [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, 1) 5 0 + 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) , backgroundColor = (0, 0, 0, 1) } normalDesktopBorder = normalTaskBorder { margin = BorderWidth 2 3 2 3 , padding = BorderWidth 0 2 0 2 , borderColor = (0.7, 0.7, 0.7, 0.8) - , backgroundColor = (1, 1, 1, 0.8) + , backgroundColor = (1, 1, 1, 0.9) } - currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.8) + currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.9) } taskStyle = TaskStyle { taskFont = "Sans 7" , taskColor = (1, 1, 1, 1) -- cgit v1.2.3