summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar')
-rw-r--r--src/Xmobar/X11/CairoDraw.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs
index c258509..fa11bf4 100644
--- a/src/Xmobar/X11/CairoDraw.hs
+++ b/src/Xmobar/X11/CairoDraw.hs
@@ -97,11 +97,11 @@ withRenderinfo ctx dctx seg@(Text _, inf, idx, a) = do
withRenderinfo _ _ seg@(Hspace w, _, _, _) = do
return (seg, \_ _ -> return (), fromIntegral w)
-withRenderinfo _ dctx seg@(Icon p, _, idx, _) = do
+withRenderinfo _ dctx seg@(Icon p, _, _, _) = do
let bm = dcBitmapLookup dctx p
wd = maybe 0 (fromIntegral . B.width) bm
- ioff = indexedOffset (dcConfig dctx) idx
- vpos = dcHeight dctx / 2 - fromIntegral ioff
+ ioff = iconOffset (dcConfig dctx)
+ vpos = dcHeight dctx / 2 + fromIntegral ioff
draw _ off = dcBitmapDrawer dctx off vpos p
return (seg, draw, wd)