From 677fc42ec08184950350a5ca36d47c7cdc3d8aab Mon Sep 17 00:00:00 2001
From: Roman Cheplyaka <roma@ro-che.info>
Date: Mon, 15 Dec 2008 19:27:58 +0100
Subject: X.H.ManageHelpers: add doHideIgnore

darcs-hash:20081215182758-3ebed-57a3f97d629f988c5bbd16fc17b7b1856f046865.gz
---
 XMonad/Hooks/ManageHelpers.hs | 7 ++++++-
 XMonad/Layout/Monitor.hs      | 4 +++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs
index dc7627b..ab568eb 100644
--- a/XMonad/Hooks/ManageHelpers.hs
+++ b/XMonad/Hooks/ManageHelpers.hs
@@ -38,7 +38,8 @@ module XMonad.Hooks.ManageHelpers (
     doRectFloat,
     doFullFloat,
     doCenterFloat,
-    doSideFloat
+    doSideFloat,
+    doHideIgnore
 ) where
 
 import XMonad
@@ -184,3 +185,7 @@ doSideFloat side = ask >>= \w -> doF . W.float w . move . snd =<< liftX (floatLo
 -- | Floats a new window with its original size, but centered.
 doCenterFloat :: ManageHook
 doCenterFloat = doSideFloat C
+
+-- | Hides window and ignores it.
+doHideIgnore :: ManageHook
+doHideIgnore = ask >>= \w -> liftX (hide w) >> doF (W.delete w)
diff --git a/XMonad/Layout/Monitor.hs b/XMonad/Layout/Monitor.hs
index 1bfc6a8..24dbf26 100644
--- a/XMonad/Layout/Monitor.hs
+++ b/XMonad/Layout/Monitor.hs
@@ -27,12 +27,14 @@ module XMonad.Layout.Monitor (
     addMonitor,
     addPersistentMonitor,
     addNamedMonitor,
-    addNamedPersistentMonitor
+    addNamedPersistentMonitor,
+    doHideIgnore
     ) where
 
 import XMonad
 import XMonad.Layout.LayoutModifier
 import XMonad.Util.WindowProperties
+import XMonad.Hooks.ManageHelpers (doHideIgnore)
 import Control.Monad
 
 -- $usage
-- 
cgit v1.2.3