From 5a0f91aa6a3ec428f988348072956649541faded Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Fri, 16 Nov 2007 13:25:51 +0100
Subject: Font.hs: tabs

darcs-hash:20071116122551-a5988-0d319fc2b94c145736fb614a87b7e4120aeb0559.gz
---
 XMonad/Util/Font.hs | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

(limited to 'XMonad/Util/Font.hs')

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'
-- 
cgit v1.2.3