From 2613fecd6383109f9c01c35b669ea265464d30a6 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Tue, 19 May 2009 04:42:58 +0200 Subject: L.ResizableTile document ResizableTall parameters with records Ignore-this: a29502bc1302f18b9ae0062105a0e109 darcs-hash:20090519024258-1499c-fa659cb2974364826458904073b79ab7b82f882d.gz --- XMonad/Layout/ResizableTile.hs | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'XMonad/Layout/ResizableTile.hs') diff --git a/XMonad/Layout/ResizableTile.hs b/XMonad/Layout/ResizableTile.hs index 11411fb..e0330f6 100644 --- a/XMonad/Layout/ResizableTile.hs +++ b/XMonad/Layout/ResizableTile.hs @@ -53,7 +53,20 @@ import Data.List ((\\)) data MirrorResize = MirrorShrink | MirrorExpand deriving Typeable instance Message MirrorResize -data ResizableTall a = ResizableTall Int Rational Rational [Rational] deriving (Show, Read) +data ResizableTall a = ResizableTall + { _nmaster :: Int -- ^ number of master windows + , _delta :: Rational -- ^ change when resizing by 'Shrink', 'Expand', + -- 'MirrorShrink', 'MirrorExpand' + , _frac :: Rational -- ^ width of master + , _slaves :: [Rational] -- ^ fraction to multiply the window + -- height that would be given when divided equally. + -- + -- slave windows are assigned their modified + -- heights in order, from top to bottom + -- + -- unspecified values are replaced by 1 + } deriving (Show, Read) + instance LayoutClass ResizableTall a where doLayout (ResizableTall nmaster _ frac mfrac) r = return . (\x->(x,Nothing)) . -- cgit v1.2.3