From 94e532991069618f9614678c90c7995da681504a Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Tue, 2 Oct 2007 19:52:58 +0200 Subject: Refactor, ignore desktop_window too darcs-hash:20071002175258-a5988-a21ad4cf3a287da86374b7264b6e11ea34cd4ef1.gz --- Config.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'Config.hs') 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 -- cgit v1.2.3