diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-16 13:25:51 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-16 13:25:51 +0100 |
| commit | 5a0f91aa6a3ec428f988348072956649541faded (patch) | |
| tree | b3e9ad4ef0c4bb0b4efe1f9a868f14b93983c8ec | |
| parent | b9bda593908e5972e93fab1f159cb3faae204855 (diff) | |
| download | XMonadContrib-5a0f91aa6a3ec428f988348072956649541faded.tar.gz XMonadContrib-5a0f91aa6a3ec428f988348072956649541faded.tar.xz XMonadContrib-5a0f91aa6a3ec428f988348072956649541faded.zip | |
Font.hs: tabs
darcs-hash:20071116122551-a5988-0d319fc2b94c145736fb614a87b7e4120aeb0559.gz
| -rw-r--r-- | XMonad/Util/Font.hs | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/XMonad/Util/Font.hs b/XMonad/Util/Font.hs index 3ef0f7b..07cfba4 100644 --- a/XMonad/Util/Font.hs +++ b/XMonad/Util/Font.hs @@ -15,17 +15,17 @@ module XMonad.Util.Font ( -- * Usage: -- $usage - XMonadFont + XMonadFont , initXMF , releaseXMF , initCoreFont , releaseCoreFont , Align (..) , stringPosition - , textWidthXMF - , textExtentsXMF - , printStringXMF - , stringToPixel + , textWidthXMF + , textExtentsXMF + , printStringXMF + , stringToPixel ) where @@ -122,19 +122,19 @@ stringPosition fs (Rectangle _ _ w h) al s = do printStringXMF :: Display -> Drawable -> XMonadFont -> GC -> String -> String -> Position -> Position -> String -> X () printStringXMF d p (Left fs) gc fc bc x y s = do - io $ setFont d gc $ fontFromFontStruct fs + io $ setFont d gc $ fontFromFontStruct fs [fc',bc'] <- mapM stringToPixel [fc,bc] - io $ setForeground d gc fc' - io $ setBackground d gc bc' - io $ drawImageString d p gc x y s + io $ setForeground d gc fc' + io $ setBackground d gc bc' + io $ drawImageString d p gc x y s printStringXMF dpy drw (Right font) _ fc _ x y s = do let screen = defaultScreenOfDisplay dpy; colormap = defaultColormapOfScreen screen; visual = defaultVisualOfScreen screen; io $ withXftDraw dpy drw visual colormap $ - \draw -> withXftColorName dpy visual colormap fc $ - \color -> xftDrawString draw color font x y s + \draw -> withXftColorName dpy visual colormap fc $ + \color -> xftDrawString draw color font x y s -- | Short-hand for 'fromIntegral' |