Taskbar: Sort windows by screen

1 files changed, 6 insertions, 5 deletions

diff --git a/src/Phi.hs b/src/Phi.hs
index 417d8f8..ea35633 100644
--- a/src/Phi.hs
+++ b/src/Phi.hs
@@ -12,15 +12,16 @@ main = do
   runPhi defaultXConfig defaultPanelConfig { panelPosition = Bottom }
     [theTaskbar, brightBorder [theClock]]
     where
-      normalTaskBorder = BorderConfig (BorderWidth 2 (-4) 2 7) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.65) (0.45, 0.45, 0.45, 0.8) 5 0
-      activeTaskBorder = normalTaskBorder {borderColor = (1, 1, 1, 0.65), backgroundColor = (0, 0, 0, 0.8)}
+      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)
+                                          , backgroundColor = (0, 0, 0, 1)
+                                          }
       normalDesktopBorder = normalTaskBorder { margin = BorderWidth 2 3 2 3
                                              , padding = BorderWidth 0 2 0 2
-                                             , borderColor = (0.75, 0.75, 0.75, 0.5)
+                                             , borderColor = (0.7, 0.7, 0.7, 0.8)
                                              , backgroundColor = (1, 1, 1, 0.8)
                                              }
-      currentDesktopBorder = normalDesktopBorder { borderColor = (0.75, 0.75, 0.75, 0.8)
-                                                 , backgroundColor = (0.2, 0.2, 0.2, 0.9)
+      currentDesktopBorder = normalDesktopBorder { backgroundColor = (0.2, 0.2, 0.2, 0.8)
                                                  }
       taskStyle = TaskStyle { taskFont = "Sans 7"
                             , taskColor = (1, 1, 1, 1)