summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-10-02 19:52:58 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-10-02 19:52:58 +0200
commitdacd88905943393f47655f19d651ae18cc9cc2de (patch)
tree4ec864613f8ee899c8bbc2f02091346c6a6c7fae
parent34bd103d9a052043400625bd8e6edc4125a6eab9 (diff)
downloadmetatile-dacd88905943393f47655f19d651ae18cc9cc2de.tar
metatile-dacd88905943393f47655f19d651ae18cc9cc2de.zip
Refactor, ignore desktop_window too
darcs-hash:20071002175258-a5988-a21ad4cf3a287da86374b7264b6e11ea34cd4ef1
-rw-r--r--Config.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/Config.hs b/Config.hs
index a4dec5e..73edd23 100644
--- a/Config.hs
+++ b/Config.hs
@@ -66,11 +66,14 @@ defaultGaps = [(0,0,0,0)] -- 15 for default dzen
-- | manageHook. Execute arbitrary actions and WindowSet manipulations when
-- managing a new window.
manageHook :: Window -> (String, String, String) -> X (WindowSet -> WindowSet)
--- Don't manage Gnome's panel or KDE's kicker:
-manageHook w (_, "gnome-panel", _) = reveal w >> return (W.delete w)
-manageHook w (_, "kicker", _) = reveal w >> return (W.delete w)
+
-- Float mplayer windows:
manageHook w (_, _, "MPlayer") = do (_, rr) <- floatLocation w; return (W.float w rr)
+
+-- Don't manage various panels and desktop windows:
+manageHook w (_, c, _) | c `elem` ignore = reveal w >> return (W.delete w)
+ where ignore = ["gnome-panel", "kicker", "desktop_window"]
+
-- The default rule, do not edit this line.
manageHook _ _ = return id