mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-31 20:21:51 -07:00
update Mosaic for latest changes.
This commit is contained in:
@@ -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
|
||||
|
Reference in New Issue
Block a user