From ebb9c69d1f674008134fbac0f1510b72320ef44e Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 25 Jan 2009 05:52:56 +0100 Subject: Mosaic: stop preventing access to the widest layouts Ignore-this: c792060fe2eaf532f433cfa8eb1e8fe3 darcs-hash:20090125045256-1499c-ccf5599c387fad32ddf033f52644ed7a4587ee92.gz --- XMonad/Layout/Mosaic.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Layout') diff --git a/XMonad/Layout/Mosaic.hs b/XMonad/Layout/Mosaic.hs index 9f4d4ec..eb05db7 100644 --- a/XMonad/Layout/Mosaic.hs +++ b/XMonad/Layout/Mosaic.hs @@ -107,7 +107,7 @@ instance LayoutClass Mosaic a where = return (zip (integrate st) rect, newLayout) where rects = splits (length $ integrate st) r ss lrects = length rects - nix = if mix == 0 || ix `elem` [0,1] then fromIntegral $ lrects `div` 2 + nix = if mix == 0 then fromIntegral $ lrects `div` 2 else max 0 $ min (fromIntegral $ pred lrects) $ fromIntegral (pred lrects) * ix / fromIntegral mix rect = rects !! round nix newLayout = Just $ MosaicSt nix (pred lrects) ss -- cgit v1.2.3