diff options
| author | Justin Bogner <mail@justinbogner.com> | 2009-10-11 07:35:38 +0200 |
|---|---|---|
| committer | Justin Bogner <mail@justinbogner.com> | 2009-10-11 07:35:38 +0200 |
| commit | 6684e84f50d60cea956704be91d8ad7e0975564a (patch) | |
| tree | 29f580b0ca724bb735dd648e7a84714296925b15 /XMonad/Config/Desktop.hs | |
| parent | a072ea53173f5f552d483f39a1e00b53619a1ad7 (diff) | |
| download | XMonadContrib-6684e84f50d60cea956704be91d8ad7e0975564a.tar.gz XMonadContrib-6684e84f50d60cea956704be91d8ad7e0975564a.tar.xz XMonadContrib-6684e84f50d60cea956704be91d8ad7e0975564a.zip | |
Move EWMH support initialization to a startupHook
Ignore-this: bd35654d0afb0a2fec73b16ab7ac38b1
Set EWMH support atoms and the window manager name in a startup hook,
rather than in the log hook: the log hook occurs far too frequently
for it to make sense to set constants with it.
darcs-hash:20091011053538-18f27-82f5abfaeba77a65ca836222d089c92d581b25bf.gz
Diffstat (limited to 'XMonad/Config/Desktop.hs')
| -rw-r--r-- | XMonad/Config/Desktop.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Config/Desktop.hs b/XMonad/Config/Desktop.hs index e72e461..bb4ae74 100644 --- a/XMonad/Config/Desktop.hs +++ b/XMonad/Config/Desktop.hs @@ -170,9 +170,8 @@ desktopConfig = defaultConfig { logHook = ewmhDesktopsLogHook , layoutHook = desktopLayoutModifiers $ layoutHook defaultConfig , manageHook = manageHook defaultConfig <+> manageDocks - , startupHook = setDefaultCursor xC_left_ptr , handleEventHook = ewmhDesktopsEventHook - , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } + , keys = \c -> desktopKeys c `M.union` keys defaultConfig c } desktopKeys (XConfig {modMask = modm}) = M.fromList $ [ ((modm, xK_b), sendMessage ToggleStruts) ] |