diff options
| author | jao <jao@gnu.org> | 2015-04-21 03:55:06 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2015-04-21 03:55:06 +0200 |
| commit | d4634e681a123d57a76312b1b65f44172e44266c (patch) | |
| tree | 40c1c44b4869812043170faa75c1b8e6b3c1c1ae | |
| parent | fcb5529708fde14b5e1735c42309cbacd29327c0 (diff) | |
| download | xmobar-d4634e681a123d57a76312b1b65f44172e44266c.tar.gz xmobar-d4634e681a123d57a76312b1b65f44172e44266c.tar.bz2 | |
Some vertical alignment for multiple fonts
| -rw-r--r-- | src/Xmobar.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs index 723dab2..1e60297 100644 --- a/src/Xmobar.hs +++ b/src/Xmobar.hs @@ -347,7 +347,7 @@ printStrings dr gc fontlist offs a sl@((s,c,i,l):xs) = do (fc,bc) = case break (==',') c of (f,',':b) -> (f, b ) (f, _) -> (f, bgColor conf) - valign <- verticalOffset ht s fontst conf + valign <- verticalOffset ht s (head fontlist) conf case s of (Text t) -> io $ printString d dr fontst gc fc bc offset valign t alph (Icon p) -> io $ maybe (return ()) |