summaryrefslogtreecommitdiffhomepage
path: root/Xmobar.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2008-03-30 11:15:37 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2008-03-30 11:15:37 +0200
commit2cedbfe229a34f4c28b3c573480549013e3a6734 (patch)
treecc2b05839c5d6598b741dba955c79dd2a23eda0a /Xmobar.hs
parentc111c1b01d6e772654fac7408bd624812397b999 (diff)
downloadxmobar-2cedbfe229a34f4c28b3c573480549013e3a6734.tar.gz
xmobar-2cedbfe229a34f4c28b3c573480549013e3a6734.tar.bz2
Fix _NET_WM_STRUT_PARTIAL implementation
darcs-hash:20080330091537-d6583-498d5b8e5cc38879490d04f97d0a59270964678a.gz
Diffstat (limited to 'Xmobar.hs')
-rw-r--r--Xmobar.hs13
1 files changed, 8 insertions, 5 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 0aec276..594da82 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -172,11 +172,14 @@ setProperties r c d w = do
getStrutValues :: Rectangle -> Config -> [Int]
getStrutValues (Rectangle x _ w h) c =
case position c of
- Top -> [0, 0, fi h, 0 , 0, 0, 0, 0, fi x, fi (x + fi w), 0, 0 ]
- TopW _ _ -> [0, 0, fi h, 0 , 0, 0, 0, 0, fi x, fi (x + fi w), 0, 0 ]
- Bottom -> [0, 0, 0 , fi h, 0, 0, 0, 0, 0, 0, fi x, fi (x + fi w)]
- BottomW _ _ -> [0, 0, 0 , fi h, 0, 0, 0, 0, 0, 0, fi x, fi (x + fi w)]
- _ -> [0, 0, 0 , 0 , 0, 0, 0, 0, 0, 0, 0, 0 ]
+ Top -> [0, 0, nh, 0, 0, 0, 0, 0, nx, nw, 0, 0]
+ TopW _ _ -> [0, 0, nh, 0, 0, 0, 0, 0, nx, nw, 0, 0]
+ Bottom -> [0, 0, 0, nh, 0, 0, 0, 0, 0, 0, nx, nw]
+ BottomW _ _ -> [0, 0, 0, nh, 0, 0, 0, 0, 0, 0, nx, nw]
+ _ -> [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0]
+ where nh = fi h
+ nx = fi x
+ nw = fi (x + fi w - 1)
updateWin :: TVar String -> X ()
updateWin v = do