From 8e776294736c5f8178517f0be09a1dd78e6a5fcf Mon Sep 17 00:00:00 2001 From: Krzysztof Kosciuszkiewicz Date: Thu, 5 Jul 2007 17:28:15 +0200 Subject: Fix few config name typos darcs-hash:20070705152815-ba08c-f5840daee9eeeae5eda5d37c9188583537c58583.gz --- XMobar.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMobar.hs') diff --git a/XMobar.hs b/XMobar.hs index b371a24..1e3a82a 100644 --- a/XMobar.hs +++ b/XMobar.hs @@ -97,7 +97,7 @@ createWin config = (fromIntegral $ xPos config) (fromIntegral $ yPos config) (fromIntegral $ width config) - (fromIntegral $ hight config) + (fromIntegral $ height config) mapWindow dpy win return (dpy,win) @@ -113,14 +113,14 @@ drawInWin str = bgcolor <- io $ initColor dpy $ bgColor config gc <- io $ createGC dpy win --let's get the fonts - fontst <- io $ loadQueryFont dpy (fonts config) + fontst <- io $ loadQueryFont dpy (font config) io $ setFont dpy gc (fontFromFontStruct fontst) -- set window background io $ setForeground dpy gc bgcolor io $ fillRectangle dpy win gc 0 0 (fromIntegral $ width config) - (fromIntegral $ hight config) + (fromIntegral $ height config) -- write let strWithLenth = map (\(s,c) -> (s,c,textWidth fontst s)) str printStrings gc fontst 1 strWithLenth @@ -141,7 +141,7 @@ printStrings gc fontst offs sl@((s,c,l):xs) = st <- get let (_,asc,_,_) = textExtents fontst s totSLen = foldr (\(_,_,len) -> (+) len) 0 sl - valign = (fromIntegral (hight config) + fromIntegral asc) `div` 2 + valign = (fromIntegral (height config) + fromIntegral asc) `div` 2 offset = case (align config) of "center" -> (fromIntegral (width config) - fromIntegral totSLen) `div` 2 "right" -> fromIntegral (width config) - fromIntegral totSLen - 1 -- cgit v1.2.3