Add Gnome event hook for panel switcher handling

This commit is contained in:
Matthias Schiffer 2010-02-13 19:14:15 +01:00
parent 03965e79a1
commit a1af240919

View file

@ -22,7 +22,7 @@ main = xmonad $ gnomeConfig
, manageHook = myManageHook
, layoutHook = desktopLayoutModifiers myLayoutHook
, startupHook = myStartupHook
, handleEventHook = handleFullscreen
, handleEventHook = myEventHook
}
`additionalKeysP`
[ ("M-<Left>", prevWS )
@ -66,3 +66,8 @@ myLayoutHook = manageFullscreen $ configureBorders $ smartBorders (tiled ||| Mir
-- Percent of screen to increment by when resizing panes
delta = 3/100
myEventHook :: Event -> X All
myEventHook ev = do
handleFullscreen ev
(handleEventHook gnomeConfig) ev