From 6684e84f50d60cea956704be91d8ad7e0975564a Mon Sep 17 00:00:00 2001 From: Justin Bogner Date: Sun, 11 Oct 2009 07:35:38 +0200 Subject: 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 --- XMonad/Config/Sjanssen.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'XMonad/Config/Sjanssen.hs') diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index 3e98172..4182c8e 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -34,14 +34,15 @@ sjanssenConfig = do , ((modm, button2), (\w -> focus w >> windows W.swapMaster)) , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] , keys = \c -> mykeys sp c `M.union` keys defaultConfig c - , layoutHook = modifiers layouts - , logHook = ewmhDesktopsLogHook - , manageHook = composeAll [className =? x --> doShift w + , layoutHook = modifiers layouts + , logHook = ewmhDesktopsLogHook + , startupHook = ewmhDesktopsStartup + , manageHook = composeAll [className =? x --> doShift w | (x, w) <- [ ("Firefox", "web") , ("Ktorrent", "7") , ("Amarokapp", "7")]] - <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp - <+> (isFullscreen --> doFullFloat) + <+> manageHook defaultConfig <+> manageDocks <+> manageSpawn sp + <+> (isFullscreen --> doFullFloat) } where tiled = HintedTile 1 0.03 0.5 TopLeft -- cgit v1.2.3