No more tabs

XMonad/Actions/ConstrainedResize.hs

@@ -16,9 +16,9 @@
 -----------------------------------------------------------------------------
 
 module XMonad.Actions.ConstrainedResize (
-	-- * Usage
-	-- $usage
-	XMonad.Actions.ConstrainedResize.mouseResizeWindow
+        -- * Usage
+        -- $usage
+        XMonad.Actions.ConstrainedResize.mouseResizeWindow
 ) where
 
 import XMonad

XMonad/Actions/FlexibleManipulate.hs

@@ -17,9 +17,9 @@
 -- Based on the FlexibleResize code by Lukas Mai (mauke).
 
 module XMonad.Actions.FlexibleManipulate (
-	-- * Usage
-	-- $usage
-	mouseWindow, discrete, linear, resize, position
+        -- * Usage
+        -- $usage
+        mouseWindow, discrete, linear, resize, position
 ) where
 
 import XMonad

XMonad/Actions/FlexibleResize.hs

@@ -13,9 +13,9 @@
 -----------------------------------------------------------------------------
 
 module XMonad.Actions.FlexibleResize (
-	-- * Usage
-	-- $usage
-	XMonad.Actions.FlexibleResize.mouseResizeWindow
+        -- * Usage
+        -- $usage
+        XMonad.Actions.FlexibleResize.mouseResizeWindow
 ) where
 
 import XMonad

XMonad/Actions/FocusNth.hs

@@ -38,12 +38,13 @@ focusNth :: Int -> X ()
 focusNth = windows . modify' . focusNth'
 
 focusNth' :: Int -> Stack a -> Stack a
-focusNth' n s@(Stack _ ls rs)	| (n < 0) || (n > length(ls) + length(rs)) = s
-				| otherwise = listToStack n (integrate s)
+focusNth' n s@(Stack _ ls rs) | (n < 0) || (n > length(ls) + length(rs)) = s
+                              | otherwise = listToStack n (integrate s)
 
 listToStack :: Int -> [a] -> Stack a
 listToStack n l = Stack t ls rs
-	where	(t:rs)	= drop n l
-		ls	= reverse (take n l)
+ where
+    (t:rs)    = drop n l
+    ls        = reverse (take n l)
 
 

XMonad/Actions/MouseGestures.hs

@@ -15,7 +15,7 @@
 module XMonad.Actions.MouseGestures (
     -- * Usage
     -- $usage
-	Direction(..),
+        Direction(..),
     mouseGesture
 ) where
 

XMonad/Actions/RotSlaves.hs

@@ -12,10 +12,10 @@
 -- place.
 -----------------------------------------------------------------------------
 module XMonad.Actions.RotSlaves (
-	-- $usage
-	rotSlaves', rotSlavesUp, rotSlavesDown,
-	rotAll', rotAllUp, rotAllDown
-	) where
+        -- $usage
+        rotSlaves', rotSlavesUp, rotSlavesDown,
+        rotAll', rotAllUp, rotAllDown
+        ) where
 
 import XMonad.StackSet
 import XMonad

XMonad/Layout/DragPane.hs

@@ -107,7 +107,7 @@ doLay mirror (DragPane mw ty delta split) r s = do
                                mirror $ Rectangle x y (w-halfHandleWidth) h
       right = case right' of
                 Rectangle x y w h ->
-		    mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h
+                    mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h
       handr = case left' of
                 Rectangle x y w h ->
                     mirror $ Rectangle (x + fromIntegral w - halfHandleWidth) y (2*halfHandleWidth) h

XMonad/Layout/Grid.hs

@@ -17,7 +17,7 @@
 module XMonad.Layout.Grid (
     -- * Usage
     -- $usage
-	Grid(..)
+        Grid(..)
 ) where
 
 import XMonad

XMonad/Layout/Tabbed.hs

@@ -204,8 +204,8 @@ updateTab ishr c fs wh (tabw,ow) = do
   dpy <- asks display
   let s = shrinkIt ishr
   name <- shrinkWhile s (\n -> do
-			   size <- io $ textWidthXMF dpy fs n
-			   return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw)
+                                size <- io $ textWidthXMF dpy fs n
+                                return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw)
   paintAndWrite tabw fs wh ht 1 bc' borderc' tc' bc' AlignCenter name
 
 shrink :: TConf -> Rectangle -> Rectangle
@@ -217,10 +217,10 @@ shrinkWhile sh p x = sw $ sh x
     where sw [n] = return n
           sw [] = return ""
           sw (n:ns) = do
-	                cond <- p n
-			if cond
-			  then sw ns
-			  else return n
+                        cond <- p n
+                        if cond
+                          then sw ns
+                          else return n
 
 data CustomShrink = CustomShrink
 instance Show CustomShrink where show _ = ""

XMonad/Util/XUtils.hs

@@ -22,7 +22,7 @@ module XMonad.Util.XUtils  (
                              , deleteWindow
                              , paintWindow
                              , paintAndWrite
-			     , stringToPixel
+                             , stringToPixel
                             ) where