diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-11 06:34:35 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-11 06:34:35 +0200 |
| commit | 5ecc5d245c1733fcf6433c1ed710b715b8a1eabb (patch) | |
| tree | a563a5a4c07e3a54ec558fdb474b17db6bf82163 /XMonad/Config.hs | |
| parent | 96dba46557b2e18885c2c90c431dc8e4516f83ee (diff) | |
| download | metatile-5ecc5d245c1733fcf6433c1ed710b715b8a1eabb.tar metatile-5ecc5d245c1733fcf6433c1ed710b715b8a1eabb.zip | |
Correctly handle resize requests
Diffstat (limited to 'XMonad/Config.hs')
| -rw-r--r-- | XMonad/Config.hs | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/XMonad/Config.hs b/XMonad/Config.hs index 7524368..1405fd1 100644 --- a/XMonad/Config.hs +++ b/XMonad/Config.hs @@ -28,11 +28,11 @@ module XMonad.Config (defaultConfig, Default(..)) where import XMonad.Core as XMonad hiding (workspaces,manageHook,keys,logHook,startupHook,mouseBindings ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,defaultBorderWidth,focusFollowsMouse - ,handleEventHook,clickJustFocuses,rootMask,clientMask) + ,handleEventHook,clickJustFocuses,rootMask,frameMask,clientMask) import qualified XMonad.Core as XMonad (workspaces,manageHook,keys,logHook,startupHook,mouseBindings ,layoutHook,modMask,terminal,normalBorderColor,focusedBorderColor,defaultBorderWidth,focusFollowsMouse - ,handleEventHook,clickJustFocuses,rootMask,clientMask) + ,handleEventHook,clickJustFocuses,rootMask,frameMask,clientMask) import XMonad.Layout import XMonad.Operations @@ -149,6 +149,10 @@ layout = tiled ||| Mirror tiled ||| Full clientMask :: EventMask clientMask = structureNotifyMask .|. enterWindowMask .|. propertyChangeMask +-- | The frame events that xmonad is interested in +frameMask :: EventMask +frameMask = substructureRedirectMask .|. substructureNotifyMask + -- | The root events that xmonad is interested in rootMask :: EventMask rootMask = substructureRedirectMask .|. substructureNotifyMask @@ -254,8 +258,9 @@ instance (a ~ Choose Tall (Choose (Mirror Tall) Full)) => Default (XConfig a) wh , XMonad.manageHook = manageHook , XMonad.handleEventHook = handleEventHook , XMonad.focusFollowsMouse = focusFollowsMouse - , XMonad.clickJustFocuses = clickJustFocuses + , XMonad.clickJustFocuses = clickJustFocuses , XMonad.clientMask = clientMask + , XMonad.frameMask = frameMask , XMonad.rootMask = rootMask } |