diff options
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/ConstrainedResize.hs | 6 | ||||
| -rw-r--r-- | XMonad/Actions/FlexibleManipulate.hs | 6 | ||||
| -rw-r--r-- | XMonad/Actions/FlexibleResize.hs | 6 | ||||
| -rw-r--r-- | XMonad/Actions/FocusNth.hs | 9 | ||||
| -rw-r--r-- | XMonad/Actions/MouseGestures.hs | 2 | ||||
| -rw-r--r-- | XMonad/Actions/RotSlaves.hs | 8 |
6 files changed, 19 insertions, 18 deletions
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 |