diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Internal/Layout.hs | 33 |
1 files changed, 18 insertions, 15 deletions
diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index d883d18..d40dd38 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -33,21 +33,24 @@ myLayout = fullscreenFull $ 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) $ - ModifiedLayout (HFlippable False) $ - ModifiedLayout (Rotateable False) $ - layoutZipper $ - spiral (6/7) |: - (Corner (3/4) (3/100) :: Corner Window) |: - ModifyDescription TallDescriptionModifier (Tall 1 (3/100) (1/2)) |: - ModifyDescription ThreeColDescMod (ThreeCol 1 (3/100) (1/2)) |: - Full |: - Grid |: - Dishes 2 (1/6) |: - (MosaicAlt M.empty :: MosaicAlt Window) |: - D.Dwindle D.R D.CW 1.5 1.1 |: - nil + layoutZipper $ + mods (spiral (6/7)) |: + mods ((Corner (3/4) (3/100) :: Corner Window)) |: + mods (ModifyDescription TallDescriptionModifier (Tall 1 (3/100) (1/2))) |: + mods (ModifyDescription ThreeColDescMod (ThreeCol 1 (3/100) (1/2))) |: + mods (Full) |: + mods (Grid) |: + mods (Dishes 2 (1/6)) |: + mods ((MosaicAlt M.empty :: MosaicAlt Window)) |: + mods (D.Dwindle D.R D.CW 1.5 1.1) |: + nil + + +mods = + ModifiedLayout (Zoomable False 0.05 0.05) . + ModifiedLayout (Flippable False) . + ModifiedLayout (HFlippable False) . + ModifiedLayout (Rotateable False) data ModifyDescription m l a = ModifyDescription m (l a) deriving (Show, Read) |