summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--samples/xmobar.config1
-rw-r--r--src/XUtil.hsc6
-rw-r--r--src/Xmobar.hs4
3 files changed, 5 insertions, 6 deletions
diff --git a/samples/xmobar.config b/samples/xmobar.config
index e1a1baa..c09ee7a 100644
--- a/samples/xmobar.config
+++ b/samples/xmobar.config
@@ -3,6 +3,7 @@ Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*"
, border = TopB
, bgColor = "black"
, fgColor = "grey"
+ , alpha = 255
, position = Top
, textOffset = -1
, iconOffset = -1
diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index e333a22..2e7e361 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -205,10 +205,8 @@ printString d p (Utf8 fs) gc fc bc x y s =
io $ wcDrawImageString d p fs gc x y s
#ifdef XFT
-printString dpy drw fs@(Xft fonts) _ fc bc x y s = do
- (a,d) <- textExtents fs s
- gi <- xftTxtExtents' dpy fonts s
- withDrawingColors dpy drw fc bc $ \draw -> \fc' -> \bc' ->
+printString dpy drw (Xft fonts) _ fc bc x y s = do
+ withDrawingColors dpy drw fc bc $ \draw -> \fc' -> \_ ->
(drawXftString' draw fc' fonts (toInteger x) (toInteger (y - 2)) s)
#endif
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 069c7a6..900feaa 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -343,8 +343,8 @@ verticalOffset ht (Text t) fontst conf
| otherwise = do
(as,ds) <- io $ textExtents fontst t
let bwidth = borderOffset (border conf) (borderWidth conf)
- verticalMargin = (fi ht) - fi (as + ds) - 2 * fi (abs bwidth)
- return $ (fi ht) - (fi ds) - (verticalMargin `div` 2) + bwidth + 1
+ verticalMargin = fi ht - fi (as + ds) - 2 * fi (abs bwidth)
+ return $ fi ht - fi ds - (verticalMargin `div` 2) + bwidth + 1
verticalOffset _ (Icon _) _ conf
| iconOffset conf > -1 = return $ fi (iconOffset conf)
| otherwise = do