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/Hooks | |
| 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 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/ManageDocks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs index d971e7c..f1c1d54 100644 --- a/XMonad/Hooks/ManageDocks.hs +++ b/XMonad/Hooks/ManageDocks.hs @@ -122,9 +122,9 @@ data ToggleStruts = ToggleStruts deriving (Read,Show,Typeable) instance Message ToggleStruts instance LayoutModifier AvoidStruts a where - modifyLayout (AvoidStruts b) l r s = do + modifyLayout (AvoidStruts b) w r = do nr <- if b then fmap ($ r) calcGap else return r - doLayout l nr s + runLayout w nr handleMess (AvoidStruts b ) m | Just ToggleStruts <- fromMessage m = return $ Just $ AvoidStruts (not b) |