diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-24 21:33:45 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-09-24 21:33:45 +0200 |
| commit | 4316f60920dd83a5707e0df0c25c98e42cf1417c (patch) | |
| tree | 43803e64080565e728eeebd7b4a7d5e068ee0e8c /LayoutModifier.hs | |
| parent | 7afc1cfe5da0d48547b331baa6a0a8175ab12b6e (diff) | |
| download | XMonadContrib-4316f60920dd83a5707e0df0c25c98e42cf1417c.tar.gz XMonadContrib-4316f60920dd83a5707e0df0c25c98e42cf1417c.tar.xz XMonadContrib-4316f60920dd83a5707e0df0c25c98e42cf1417c.zip | |
LayoutModifier updated to use LayoutMessages
darcs-hash:20070924193345-32816-89f6d432ec661fd5926fb3630fc353f41221b8e3.gz
Diffstat (limited to 'LayoutModifier.hs')
| -rw-r--r-- | LayoutModifier.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LayoutModifier.hs b/LayoutModifier.hs index 8b60b4d..2d22371 100644 --- a/LayoutModifier.hs +++ b/LayoutModifier.hs @@ -20,14 +20,14 @@ module XMonadContrib.LayoutModifier ( import Graphics.X11.Xlib ( Rectangle ) import XMonad import StackSet ( Stack ) -import Operations ( UnDoLayout(UnDoLayout) ) +import Operations ( LayoutMessages(Hide) ) -- $usage -- Use LayoutHelpers to help write easy Layouts. class (Show (m a), Read (m a)) => LayoutModifier m a where modifyModify :: m a -> SomeMessage -> X (Maybe (m l)) - modifyModify m mess | Just UnDoLayout <- fromMessage mess = do unhook m; return Nothing + modifyModify m mess | Just Hide <- fromMessage mess = do unhook m; return Nothing | otherwise = return Nothing redoLayout :: m a -> Rectangle -> Stack a -> [(a, Rectangle)] -> X ([(a, Rectangle)], Maybe (m l)) |