From aa7b17533695687a9c31070f5d9845c52493856e Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 11 Jun 2007 20:34:39 +0200 Subject: Updates to work with recent API changes darcs-hash:20070611183439-a5988-c3d6cc194fa83f012ab49d6d79130ff459dcdfe1.gz --- HintedTile.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'HintedTile.hs') diff --git a/HintedTile.hs b/HintedTile.hs index f3a811a..22ea946 100644 --- a/HintedTile.hs +++ b/HintedTile.hs @@ -2,6 +2,7 @@ module XMonadContrib.HintedTile (tall, wide) where import XMonad import Operations (Resize(..), IncMasterN(..), applySizeHints) +import qualified StackSet as W import {-# SOURCE #-} Config (borderWidth) import Graphics.X11.Xlib import Graphics.X11.Xlib.Extras @@ -18,10 +19,11 @@ wide = tile splitVertically divideHorizontally tall = tile splitHorizontally divideVertically tile split divide nmaster delta frac = - Layout { doLayout = \r w -> do { hints <- sequence (map getHints w) - ; return $ zip w (tiler frac r `uncurry` splitAt nmaster hints) } - , modifyLayout = \m -> fmap resize (fromMessage m) `mplus` - fmap incmastern (fromMessage m) } + Layout { doLayout = \r w' -> let w = W.integrate w' + in do { hints <- sequence (map getHints w) + ; return $ zip w (tiler frac r `uncurry` splitAt nmaster hints) } + , modifyLayout = \m -> return $ fmap resize (fromMessage m) `mplus` + fmap incmastern (fromMessage m) } where resize Shrink = tile split divide nmaster delta (frac-delta) resize Expand = tile split divide nmaster delta (frac+delta) -- cgit v1.2.3