diff options
| author | Daniel Schoepe <asgaroth_@gmx.de> | 2009-02-03 16:55:36 +0100 |
|---|---|---|
| committer | Daniel Schoepe <asgaroth_@gmx.de> | 2009-02-03 16:55:36 +0100 |
| commit | 5c38e151b889f65cac11f1cd19629d04d7e0849d (patch) | |
| tree | 6d8131a58a6e1f7a71e63c8ff36e8c96427516b7 /XMonad/Core.hs | |
| parent | 21943d95090614acde26969dc9f5ef8513a06799 (diff) | |
| download | metatile-5c38e151b889f65cac11f1cd19629d04d7e0849d.tar metatile-5c38e151b889f65cac11f1cd19629d04d7e0849d.zip | |
Support for custom event hooks
Ignore-this: f22f1a7ae2d958ba1b3625aa923b7efd
darcs-hash:20090203155536-cb1c6-834084657dbd5699030c7dd6dbb1ab153763b631
Diffstat (limited to 'XMonad/Core.hs')
| -rw-r--r-- | XMonad/Core.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index c86a170..38048e5 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -87,6 +87,9 @@ data XConfig l = XConfig , terminal :: !String -- ^ The preferred terminal application. Default: \"xterm\" , layoutHook :: !(l Window) -- ^ The available layouts , manageHook :: !ManageHook -- ^ The action to run when a new window is opened + , handleEventHook :: !(Event -> X All) -- ^ Handle an X event, returns (All True) if the default handler + -- should also be run afterwards. mappend should be used for combining + -- event hooks in most cases. , workspaces :: ![String] -- ^ The list of workspaces' names , numlockMask :: !KeyMask -- ^ The numlock modifier , modMask :: !KeyMask -- ^ the mod modifier |