diff options
| author | Krzysztof Kosciuszkiewicz <k.kosciuszkiewicz@gmail.com> | 2007-07-05 17:28:15 +0200 |
|---|---|---|
| committer | Krzysztof Kosciuszkiewicz <k.kosciuszkiewicz@gmail.com> | 2007-07-05 17:28:15 +0200 |
| commit | 8e776294736c5f8178517f0be09a1dd78e6a5fcf (patch) | |
| tree | fb4f9fd37ca3555ed4ffb1b781003a5b002b90a8 /XMobar.hs | |
| parent | aeacd762e4669d7dc0bb27920a45bd7b85ccc5a2 (diff) | |
| download | xmobar-8e776294736c5f8178517f0be09a1dd78e6a5fcf.tar.gz xmobar-8e776294736c5f8178517f0be09a1dd78e6a5fcf.tar.bz2 | |
Fix few config name typos
darcs-hash:20070705152815-ba08c-f5840daee9eeeae5eda5d37c9188583537c58583.gz
Diffstat (limited to 'XMobar.hs')
| -rw-r--r-- | XMobar.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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 |