L.ResizableTile document ResizableTall parameters with records

Ignore-this: a29502bc1302f18b9ae0062105a0e109

darcs-hash:20090519024258-1499c-fa659cb2974364826458904073b79ab7b82f882d.gz

1 files changed, 14 insertions, 1 deletions

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)) .