Added AlphaBox widget

1 files changed, 5 insertions, 4 deletions

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)