aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRoman Cheplyaka <roma@ro-che.info>2008-12-15 19:27:58 +0100
committerRoman Cheplyaka <roma@ro-che.info>2008-12-15 19:27:58 +0100
commit677fc42ec08184950350a5ca36d47c7cdc3d8aab (patch)
treea4c882f7a802cc920f2f1b9e038a01811de55ce3
parent1e7414fd1c72299d1991482eb5dad47bc25f0d9f (diff)
downloadXMonadContrib-677fc42ec08184950350a5ca36d47c7cdc3d8aab.tar.gz
XMonadContrib-677fc42ec08184950350a5ca36d47c7cdc3d8aab.tar.xz
XMonadContrib-677fc42ec08184950350a5ca36d47c7cdc3d8aab.zip
X.H.ManageHelpers: add doHideIgnore
darcs-hash:20081215182758-3ebed-57a3f97d629f988c5bbd16fc17b7b1856f046865.gz
-rw-r--r--XMonad/Hooks/ManageHelpers.hs7
-rw-r--r--XMonad/Layout/Monitor.hs4
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