aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Util
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-16 13:25:51 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-16 13:25:51 +0100
commit5a0f91aa6a3ec428f988348072956649541faded (patch)
treeb3e9ad4ef0c4bb0b4efe1f9a868f14b93983c8ec /XMonad/Util
parentb9bda593908e5972e93fab1f159cb3faae204855 (diff)
downloadXMonadContrib-5a0f91aa6a3ec428f988348072956649541faded.tar.gz
XMonadContrib-5a0f91aa6a3ec428f988348072956649541faded.tar.xz
XMonadContrib-5a0f91aa6a3ec428f988348072956649541faded.zip
Font.hs: tabs
darcs-hash:20071116122551-a5988-0d319fc2b94c145736fb614a87b7e4120aeb0559.gz
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'