summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-09-13 06:17:17 +0100
committerjao <jao@gnu.org>2022-09-13 06:17:17 +0100
commitd64969c3fa6dba85430ba38ae48513ec2424004f (patch)
treece20165681c9c455b95753eecec2edced7d96a9d
parenta17bb0b61dd917b71b1f00340e2ecdafe1991bd8 (diff)
downloadxmobar-d64969c3fa6dba85430ba38ae48513ec2424004f.tar.gz
xmobar-d64969c3fa6dba85430ba38ae48513ec2424004f.tar.bz2
cairo: honouring iconOffset
-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)