diff options
author | David Roundy <droundy@darcs.net> | 2007-06-10 16:58:16 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-10 16:58:16 +0200 |
commit | 58028d487b7963fe6e5154f89b18d0f37e7c96ee (patch) | |
tree | 034c655c340ef86f07902b1521c0acd5f3b2b307 | |
parent | 7ef3c452e3b9878f6423ca64d25631bc7a422695 (diff) | |
download | XMonadContrib-58028d487b7963fe6e5154f89b18d0f37e7c96ee.tar.gz XMonadContrib-58028d487b7963fe6e5154f89b18d0f37e7c96ee.tar.xz XMonadContrib-58028d487b7963fe6e5154f89b18d0f37e7c96ee.zip |
update Mosaic for latest changes.
darcs-hash:20070610145816-72aca-d935bc9ead6eff049c1b09681727c38522b2e2c9.gz
Diffstat (limited to '')
-rw-r--r-- | Mosaic.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -30,7 +30,7 @@ import System.Random ( StdGen, Random, mkStdGen, randomR ) import Data.Ratio import Graphics.X11.Xlib import XMonad hiding ( trace ) -import Operations ( Resize(Shrink, Expand) ) +import Operations ( full, Resize(Shrink, Expand) ) import qualified Data.Map as M import Data.List ( sort ) import Data.Typeable ( Typeable ) @@ -68,7 +68,7 @@ flexibility :: Double flexibility = 0.1 mosaic :: Double -> Double -> M.Map NamedWindow [WindowHint] -> Layout -mosaic delta tileFrac hints = Layout { doLayout = mosaicL tileFrac hints, modifyLayout = mlayout } +mosaic delta tileFrac hints = full { doLayout = mosaicL tileFrac hints, 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 |