From 7d74e99e143a2a6ead7cb754e02273c10c848757 Mon Sep 17 00:00:00 2001 From: Norbert Zeh Date: Tue, 15 Dec 2009 20:21:42 +0100 Subject: Additional messages for SplitGrid layout Ignore-this: eb945168d1c420e5a9ed87da12a7acf8 This patch introduces two new message SetMasterRows and SetMasterCols for the X.GridVariants.SplitGrid layout, which set the number of rows/columns in the master grid to the given value. This is useful when setting the number of rows and/or columns non-incrementally using an interface such as GridSelect. darcs-hash:20091215192142-18a2b-ab6e52541551341405cba967a775252e83d4ce7f.gz --- XMonad/Layout/GridVariants.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'XMonad/Layout/GridVariants.hs') diff --git a/XMonad/Layout/GridVariants.hs b/XMonad/Layout/GridVariants.hs index 69e97a2..e363c89 100644 --- a/XMonad/Layout/GridVariants.hs +++ b/XMonad/Layout/GridVariants.hs @@ -104,6 +104,8 @@ instance LayoutClass SplitGrid a where data ChangeMasterGeom = IncMasterRows !Int -- ^Change the number of master rows | IncMasterCols !Int -- ^Change the number of master columns + | SetMasterRows !Int -- ^Set the number of master rows to absolute value + | SetMasterCols !Int -- ^Set the number of master columns to absolute value deriving Typeable instance Message ChangeMasterGeom @@ -188,6 +190,10 @@ changeMasterGrid (SplitGrid o mrows mcols mfrac saspect delta) (IncMasterRows d) SplitGrid o (max 0 (mrows + d)) mcols mfrac saspect delta changeMasterGrid (SplitGrid o mrows mcols mfrac saspect delta) (IncMasterCols d) = SplitGrid o mrows (max 0 (mcols + d)) mfrac saspect delta +changeMasterGrid (SplitGrid o _ mcols mfrac saspect delta) (SetMasterRows mrows) = + SplitGrid o (max 0 mrows) mcols mfrac saspect delta +changeMasterGrid (SplitGrid o mrows _ mfrac saspect delta) (SetMasterCols mcols) = + SplitGrid o mrows (max 0 mcols) mfrac saspect delta -- | TallGrid layout. Parameters are -- -- cgit v1.2.3