diff options
| author | jao <jao@gnu.org> | 2014-12-30 01:12:28 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2014-12-30 01:30:26 +0100 |
| commit | f55fd96a34f9e59b56f8abb109c04dd120bf7161 (patch) | |
| tree | 463c599d6e1338e8613b8a7c808151b11570db66 /src/Xmobar.hs | |
| parent | 584ff68d9ede856b36b75467b0ca2eb6d9e03ab4 (diff) | |
| download | xmobar-f55fd96a34f9e59b56f8abb109c04dd120bf7161.tar.gz xmobar-f55fd96a34f9e59b56f8abb109c04dd120bf7161.tar.bz2 | |
Linting and defaults
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |