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 --- Mosaic.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Mosaic.hs') diff --git a/Mosaic.hs b/Mosaic.hs index 61d19ba..34e536e 100644 --- a/Mosaic.hs +++ b/Mosaic.hs @@ -31,6 +31,7 @@ import Data.Ratio import Graphics.X11.Xlib import XMonad hiding ( trace ) import Operations ( full, Resize(Shrink, Expand) ) +import qualified StackSet as W import qualified Data.Map as M import Data.List ( sort ) import Data.Typeable ( Typeable ) @@ -68,7 +69,7 @@ flexibility :: Double flexibility = 0.1 mosaic :: Double -> Double -> M.Map NamedWindow [WindowHint] -> Layout -mosaic delta tileFrac hints = full { doLayout = mosaicL tileFrac hints, modifyLayout = return . mlayout } +mosaic delta tileFrac hints = full { doLayout = \r -> mosaicL tileFrac hints r . W.integrate, modifyLayout = return . mlayout } where mlayout x = (m1 `fmap` fromMessage x) `mplus` (m2 `fmap` fromMessage x) m1 Shrink = mosaic delta (tileFrac/(1+delta)) hints m1 Expand = mosaic delta (tileFrac*(1+delta)) hints -- cgit v1.2.3