Another manageHook example

darcs-hash:20071013205605-a5988-b20178d9fbbf3640eb69cba3bd7f0b4ddbfa0d19.gz

1 files changed, 5 insertions, 0 deletions

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