aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Util')
-rw-r--r--XMonad/Util/Font.hs22
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'