From d11b051dea4dfe0a46a16c26fdd1d7ba481336ea Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sun, 9 Dec 2007 14:54:08 +0100
Subject: Remove kicker and gnome-panel from the default manageHook, these are
 better

handled by XMonad.Hooks.ManageDocks.  Also, remove the over-complicated list
comprehensions.

darcs-hash:20071209135408-a5988-75f2ea762ddd8c442c13f712e68397f60c429fab.gz
---
 XMonad/Config.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'XMonad')

diff --git a/XMonad/Config.hs b/XMonad/Config.hs
index b5da4cb..e577e3d 100644
--- a/XMonad/Config.hs
+++ b/XMonad/Config.hs
@@ -111,12 +111,11 @@ defaultGaps = [(0,0,0,0)] -- 15 for default dzen font
 -- and click on the client you're interested in.
 --
 manageHook :: ManageHook
-manageHook = composeAll . concat $
-                [ [ className =? c --> doFloat | c <- floats]
-                , [ resource =? r --> doIgnore | r <- ignore]
-                , [ resource =? "Gecko" --> doF (W.shift "web") ]]
- where floats = ["MPlayer", "Gimp"]
-       ignore = ["gnome-panel", "desktop_window", "kicker", "kdesktop"]
+manageHook = composeAll
+                [ className =? "MPlayer"        --> doFloat
+                , className =? "Gimp"           --> doFloat
+                , resource  =? "desktop_window" --> doIgnore
+                , resource  =? "kdesktop"       --> doIgnore ]
 
 ------------------------------------------------------------------------
 -- Logging
-- 
cgit v1.2.3