diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-01-25 05:52:56 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-01-25 05:52:56 +0100 |
| commit | ebb9c69d1f674008134fbac0f1510b72320ef44e (patch) | |
| tree | b294a80438d0953e6856bfdfc9ac900076803a30 /XMonad/Layout | |
| parent | 4b198ab617e59633d3d5fd7d84eee3fabdb114cc (diff) | |
| download | XMonadContrib-ebb9c69d1f674008134fbac0f1510b72320ef44e.tar.gz XMonadContrib-ebb9c69d1f674008134fbac0f1510b72320ef44e.tar.xz XMonadContrib-ebb9c69d1f674008134fbac0f1510b72320ef44e.zip | |
Mosaic: stop preventing access to the widest layouts
Ignore-this: c792060fe2eaf532f433cfa8eb1e8fe3
darcs-hash:20090125045256-1499c-ccf5599c387fad32ddf033f52644ed7a4587ee92.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Layout/Mosaic.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |