diff options
Diffstat (limited to 'src/Internal/Layout.hs')
| -rw-r--r-- | src/Internal/Layout.hs | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index a077872..8613284 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -1,5 +1,5 @@ {-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-} -module Internal.Layout where +module Internal.Layout where import Internal.CornerLayout (Corner(..)) import Control.Arrow (second) @@ -27,7 +27,7 @@ import qualified XMonad.StackSet as W myLayout = fullscreenFull $ - avoidStruts $ + avoidStruts $ spacingRaw True (Border 5 5 5 5) True (Border 5 5 5 5) True $ ModifiedLayout (Zoomable False 0.05 0.05) $ ModifiedLayout (Flippable False) $ @@ -134,7 +134,7 @@ instance (Eq a) => LayoutModifier Rotateable a where zero (Rectangle x y w h) = Rectangle (x - x') (y - y') w h unzero (Rectangle x y w h) = Rectangle (x + x') (y + y') w h - scaleRect (Rectangle x y w h) = + scaleRect (Rectangle x y w h) = Rectangle (x * fi sw `div` fi sh) (y * fi sh `div` fi sw) (w * sw `div` sh) @@ -154,14 +154,14 @@ instance (Eq a) => LayoutModifier Rotateable a where instance (Eq a) => LayoutModifier Flippable a where pureModifier (Flippable flip) (Rectangle sx _ sw _) stack returned = - if flip + if flip then (map (second doFlip) returned, Nothing) else (returned, Nothing) where doFlip (Rectangle x y w h) = Rectangle ((sx + fromIntegral sw) - x - fromIntegral w + sx) y w h - pureMess (Flippable flip) message = + pureMess (Flippable flip) message = case fromMessage message of Just FlipLayout -> Just (Flippable (not flip)) Nothing -> Nothing @@ -174,14 +174,14 @@ instance (Eq a) => LayoutModifier Flippable a where instance (Eq a) => LayoutModifier HFlippable a where pureModifier (HFlippable flip) (Rectangle _ sy _ sh) stack returned = - if flip + if flip then (map (second doFlip) returned, Nothing) else (returned, Nothing) where doFlip (Rectangle x y w h) = Rectangle x ((sy + fromIntegral sh) - y - fromIntegral h + sy) w h - pureMess (HFlippable flip) message = + pureMess (HFlippable flip) message = case fromMessage message of Just HFlipLayout -> Just (HFlippable (not flip)) Nothing -> Nothing @@ -191,7 +191,7 @@ instance (Eq a) => LayoutModifier HFlippable a where if flipped then descr ++ " HFlipped" else descr - + instance (Eq a) => LayoutModifier Zoomable a where redoLayout (Zoomable doit ws hs) (Rectangle x y w h) stack returned = |