diff options
| author | Josh Rahm <rahm@google.com> | 2022-04-08 14:41:34 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-04-08 14:41:34 -0600 |
| commit | c264ad435597ea6bf68c386195919209c8f2a3e3 (patch) | |
| tree | 6c459c551fea6b2d3c813a2d66126b0478717736 /src/Internal/Layout.hs | |
| parent | 1c5e867dd7183ffef0611d3bbbd50f06c1022328 (diff) | |
| download | rde-c264ad435597ea6bf68c386195919209c8f2a3e3.tar.gz rde-c264ad435597ea6bf68c386195919209c8f2a3e3.tar.bz2 rde-c264ad435597ea6bf68c386195919209c8f2a3e3.zip | |
Cleanup and more documentation.
Diffstat (limited to 'src/Internal/Layout.hs')
| -rw-r--r-- | src/Internal/Layout.hs | 26 |
1 files changed, 16 insertions, 10 deletions
diff --git a/src/Internal/Layout.hs b/src/Internal/Layout.hs index 8613284..d883d18 100644 --- a/src/Internal/Layout.hs +++ b/src/Internal/Layout.hs @@ -1,6 +1,8 @@ -{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances #-} +{-# LANGUAGE MultiParamTypeClasses, FlexibleInstances, KindSignatures, DataKinds, GADTs, RankNTypes #-} module Internal.Layout where +import GHC.TypeLits + import Internal.CornerLayout (Corner(..)) import Control.Arrow (second) import XMonad.Hooks.ManageDocks @@ -22,6 +24,8 @@ import XMonad import XMonad.Core import XMonad.Layout.NoBorders (smartBorders, noBorders) +import Internal.LayoutZipper + import qualified Data.Map as M import qualified XMonad.StackSet as W @@ -33,15 +37,17 @@ myLayout = ModifiedLayout (Flippable False) $ ModifiedLayout (HFlippable False) $ ModifiedLayout (Rotateable False) $ - 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 + 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 data ModifyDescription m l a = ModifyDescription m (l a) deriving (Show, Read) |