diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-23 08:56:10 +0100 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-23 08:56:10 +0100 |
commit | 729c6e4456f9184b575edaa97cbb3616e3388a90 (patch) | |
tree | 022086f865173017cf69a0534e63b3c3fc713ada /XMonad/Layout/ResizeScreen.hs | |
parent | 8fe9bce455127ba0825607851bc207cfe0c0e210 (diff) | |
download | XMonadContrib-729c6e4456f9184b575edaa97cbb3616e3388a90.tar.gz XMonadContrib-729c6e4456f9184b575edaa97cbb3616e3388a90.tar.xz XMonadContrib-729c6e4456f9184b575edaa97cbb3616e3388a90.zip |
LayoutModifier: reimplement ModifiedLayout using runLayout and more
- change modifyLayout type to get the Workspace
- updated ResizeScreen and ManageDocks accordingly.
darcs-hash:20080223075610-32816-05f373cf73305ce5b41d0c250fb5d6413e72b3b4.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Layout/ResizeScreen.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/ResizeScreen.hs b/XMonad/Layout/ResizeScreen.hs index 54de481..bcbab19 100644 --- a/XMonad/Layout/ResizeScreen.hs +++ b/XMonad/Layout/ResizeScreen.hs @@ -63,14 +63,14 @@ data ResizeScreen a = ResizeScreen ResizeMode Int data ResizeMode = T | B | L | R deriving (Read, Show) instance LayoutModifier ResizeScreen a where - modifyLayout m l rect@(Rectangle x y w h) s + modifyLayout m ws rect@(Rectangle x y w h) | ResizeScreen L i <- m = resize $ Rectangle (x + fi i) y (w - fi i) h | ResizeScreen R i <- m = resize $ Rectangle x y (w - fi i) h | ResizeScreen T i <- m = resize $ Rectangle x (y + fi i) w (h - fi i) | ResizeScreen B i <- m = resize $ Rectangle x y w (h - fi i) | WithNewScreen r <- m = resize r | otherwise = resize rect - where resize nr = doLayout l nr s + where resize nr = runLayout ws nr pureMess (ResizeScreen d _) m | Just (SetTheme t) <- fromMessage m = Just $ ResizeScreen d (fi $ decoHeight t) |