From 9210b48e15a40b99f6755da7efc5019719233ebf Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 13 Oct 2007 22:56:05 +0200 Subject: Another manageHook example darcs-hash:20071013205605-a5988-b20178d9fbbf3640eb69cba3bd7f0b4ddbfa0d19.gz --- Config.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'Config.hs') diff --git a/Config.hs b/Config.hs index 0c83e72..f601e6e 100644 --- a/Config.hs +++ b/Config.hs @@ -79,6 +79,11 @@ manageHook w _ _ c | c `elem` floats = fmap (W.float w . snd) (floatLocation w) manageHook w _ n _ | n `elem` ignore = reveal w >> return (W.delete w) where ignore = ["gnome-panel", "desktop_window", "kicker", "kdesktop"] +-- Automatically send Firefox windows to the "web" workspace: +-- If a workspace named "web" doesn't exist, the window will appear on the +-- current workspace. +manageHook _ _ "Gecko" _ = return $ W.shift "web" + -- The default rule: return the WindowSet unmodified. You typically do not -- want to modify this line. manageHook _ _ _ _ = return id -- cgit v1.2.3