From 0a99440e52d872287b1add151c2608f089c45c5c Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 22 Dec 2007 06:04:39 +0100 Subject: No more tabs darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz --- XMonad/Actions/ConstrainedResize.hs | 6 +++--- XMonad/Actions/FlexibleManipulate.hs | 6 +++--- XMonad/Actions/FlexibleResize.hs | 6 +++--- XMonad/Actions/FocusNth.hs | 9 +++++---- XMonad/Actions/MouseGestures.hs | 2 +- XMonad/Actions/RotSlaves.hs | 8 ++++---- XMonad/Layout/DragPane.hs | 2 +- XMonad/Layout/Grid.hs | 2 +- XMonad/Layout/Tabbed.hs | 12 ++++++------ XMonad/Util/XUtils.hs | 2 +- 10 files changed, 28 insertions(+), 27 deletions(-) (limited to 'XMonad') diff --git a/XMonad/Actions/ConstrainedResize.hs b/XMonad/Actions/ConstrainedResize.hs index 7d0dc0b..a0a412c 100644 --- a/XMonad/Actions/ConstrainedResize.hs +++ b/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 diff --git a/XMonad/Actions/FlexibleManipulate.hs b/XMonad/Actions/FlexibleManipulate.hs index 4ef96df..083b661 100644 --- a/XMonad/Actions/FlexibleManipulate.hs +++ b/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 diff --git a/XMonad/Actions/FlexibleResize.hs b/XMonad/Actions/FlexibleResize.hs index 2998592..cc99dcf 100644 --- a/XMonad/Actions/FlexibleResize.hs +++ b/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 diff --git a/XMonad/Actions/FocusNth.hs b/XMonad/Actions/FocusNth.hs index 8c140cd..af70dc7 100644 --- a/XMonad/Actions/FocusNth.hs +++ b/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) diff --git a/XMonad/Actions/MouseGestures.hs b/XMonad/Actions/MouseGestures.hs index 38cecf6..241a063 100644 --- a/XMonad/Actions/MouseGestures.hs +++ b/XMonad/Actions/MouseGestures.hs @@ -15,7 +15,7 @@ module XMonad.Actions.MouseGestures ( -- * Usage -- $usage - Direction(..), + Direction(..), mouseGesture ) where diff --git a/XMonad/Actions/RotSlaves.hs b/XMonad/Actions/RotSlaves.hs index d565f52..f6a978d 100644 --- a/XMonad/Actions/RotSlaves.hs +++ b/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 diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs index f13eca3..7e10597 100644 --- a/XMonad/Layout/DragPane.hs +++ b/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 diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs index 36a5768..1c7c5a6 100644 --- a/XMonad/Layout/Grid.hs +++ b/XMonad/Layout/Grid.hs @@ -17,7 +17,7 @@ module XMonad.Layout.Grid ( -- * Usage -- $usage - Grid(..) + Grid(..) ) where import XMonad diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs index 237db34..2b30caf 100644 --- a/XMonad/Layout/Tabbed.hs +++ b/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 _ = "" diff --git a/XMonad/Util/XUtils.hs b/XMonad/Util/XUtils.hs index c8e403d..32d9294 100644 --- a/XMonad/Util/XUtils.hs +++ b/XMonad/Util/XUtils.hs @@ -22,7 +22,7 @@ module XMonad.Util.XUtils ( , deleteWindow , paintWindow , paintAndWrite - , stringToPixel + , stringToPixel ) where -- cgit v1.2.3