twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

LayouModifier: haddock docs

Browse Source
This commit is contained in:
Andrea Rossato 2007-11-23 14:25:19 +00:00
parent 8f641ff025
commit ec0d5129a3
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Layout/LayoutModifier.hs
View File

@ -11,7 +11,7 @@
-- Stability : unstable -- Stability : unstable
-- Portability : portable -- Portability : portable
-- --
-- A module for writing easy Layouts -- A module for writing easy Llayouts and layout modifiers
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
module XMonad.Layout.LayoutModifier ( module XMonad.Layout.LayoutModifier (
@ -25,13 +25,19 @@ import XMonad
import XMonad.StackSet ( Stack ) import XMonad.StackSet ( Stack )
-- $usage -- $usage
-- Use LayoutHelpers to help write easy Layouts. -- Use LayoutModifier to help write easy Layouts.
--
-- LayouModifier defines a class 'LayoutModifier'. Each method as a
-- default implementation.
--
-- For usage examples you can see "XMonad.Layout.WorkspaceDir",
-- "XMonad.Layout.Magnifier", "XMonad.Layout.NoBorder",
class (Show (m a), Read (m a)) => LayoutModifier m a where class (Show (m a), Read (m a)) => LayoutModifier m a where
handleMess :: m a -> SomeMessage -> X (Maybe (m a)) handleMess :: m a -> SomeMessage -> X (Maybe (m a))
handleMess m mess | Just Hide <- fromMessage mess = doUnhook handleMess m mess | Just Hide <- fromMessage mess = doUnhook
| Just ReleaseResources <- fromMessage mess = doUnhook | Just ReleaseResources <- fromMessage mess = doUnhook
| otherwise = return Nothing | otherwise = return Nothing
where doUnhook = do unhook m; return Nothing where doUnhook = do unhook m; return Nothing
handleMessOrMaybeModifyIt :: m a -> SomeMessage -> X (Maybe (Either (m a) SomeMessage)) handleMessOrMaybeModifyIt :: m a -> SomeMessage -> X (Maybe (Either (m a) SomeMessage))
handleMessOrMaybeModifyIt m mess = do mm' <- handleMess m mess handleMessOrMaybeModifyIt m mess = do mm' <- handleMess m mess