summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2015-04-21 03:55:06 +0200
committerjao <jao@gnu.org>2015-04-21 03:55:40 +0200
commitda17f6c3aa5be180110d59ac250dd41b91809ad6 (patch)
tree40c1c44b4869812043170faa75c1b8e6b3c1c1ae /src/Xmobar.hs
parentfcb5529708fde14b5e1735c42309cbacd29327c0 (diff)
downloadxmobar-da17f6c3aa5be180110d59ac250dd41b91809ad6.tar.gz
xmobar-da17f6c3aa5be180110d59ac250dd41b91809ad6.tar.bz2
Same vertical alignment for multiple fonts
Diffstat (limited to 'src/Xmobar.hs')
-rw-r--r--src/Xmobar.hs2
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 ())