From ac5ab95e372f33e8f32f5694ce4f73e00056f224 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Wed, 30 Apr 2008 10:25:36 +0200 Subject: manageHooks for my config darcs-hash:20080430082536-a5988-ba25496fe4399d563cabd3519c828d834ae8b489.gz --- XMonad/Config/Sjanssen.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'XMonad/Config/Sjanssen.hs') diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs index 38bbaac..e48bd86 100644 --- a/XMonad/Config/Sjanssen.hs +++ b/XMonad/Config/Sjanssen.hs @@ -30,7 +30,10 @@ sjanssenConfig = do , ((modm.|. shiftMask, button1), (\w -> focus w >> mouseResizeWindow w)) ] , keys = \c -> mykeys c `M.union` keys defaultConfig c , layoutHook = avoidStruts $ smartBorders (tiled Tall ||| tiled Wide ||| Full ||| tabbed shrinkText myTheme) - , manageHook = manageHook defaultConfig <+> manageDocks + , manageHook = composeAll [className =? x --> doF (W.shift w) + | (x, w) <- [ ("Firefox", "web"), ("Pidgin", "im") + , ("Ktorrent", "7")]] + <+> manageHook defaultConfig <+> manageDocks } where tiled = HintedTile 1 0.03 0.5 TopLeft -- cgit v1.2.3