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 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'XMonad/Hooks/ManageHelpers.hs')

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)
-- 
cgit v1.2.3