summaryrefslogtreecommitdiffhomepage
path: root/Xmobar.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Xmobar.hs')
-rw-r--r--Xmobar.hs8
1 files changed, 5 insertions, 3 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 0b541f8..4ee8772 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -175,9 +175,11 @@ setProperties h c d w = do
getStrutValues :: Dimension -> Config -> [Int]
getStrutValues h c =
case position c of
- Top -> [0, 0, fi h, 0 ]
- Bottom -> [0, 0, 0 , fi h]
- _ -> [0, 0, 0 , 0 ]
+ Top -> [0, 0, fi h, 0 ]
+ TopW _ _ -> [0, 0, fi h, 0 ]
+ Bottom -> [0, 0, 0 , fi h]
+ BottomW _ _ -> [0, 0, 0 , fi h]
+ _ -> [0, 0, 0 , 0 ]
updateWin :: TVar String -> X ()
updateWin v = do