diff options
| author | jao <jao@gnu.org> | 2015-01-07 04:50:19 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2015-01-07 04:50:19 +0100 |
| commit | fea0dbe8726a61ac52ca0bd41f12785b6eacd367 (patch) | |
| tree | 10b0b8b7b8728e2554fc155e501fce8db0a4a547 /src/XUtil.hsc | |
| parent | 850a3e8a8b5f183190d7f34c78b1c7979f916979 (diff) | |
| download | xmobar-fea0dbe8726a61ac52ca0bd41f12785b6eacd367.tar.gz xmobar-fea0dbe8726a61ac52ca0bd41f12785b6eacd367.tar.bz2 | |
Honoring multiple fonts in the last fix
Diffstat (limited to 'src/XUtil.hsc')
| -rw-r--r-- | src/XUtil.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/XUtil.hsc b/src/XUtil.hsc index d123d4e..900cc75 100644 --- a/src/XUtil.hsc +++ b/src/XUtil.hsc @@ -213,7 +213,7 @@ printString dpy drw fs@(Xft fonts) _ fc bc x y s al = do withDrawingColors dpy drw fc bc $ \draw -> \fc' -> \bc' -> do when (al == 255) $ do (a,d) <- textExtents fs s - gi <- xftTxtExtents dpy (head fonts) s + gi <- xftTxtExtents' dpy fonts s drawXftRect draw bc' (x + 1 - fi (xglyphinfo_x gi)) (y - (a + d) + 1) (xglyphinfo_xOff gi) (a + d) (drawXftString' draw fc' fonts (toInteger x) (toInteger (y - 2)) s) |