diff options
author | Roman Cheplyaka <roma@ro-che.info> | 2008-12-15 19:27:58 +0100 |
---|---|---|
committer | Roman Cheplyaka <roma@ro-che.info> | 2008-12-15 19:27:58 +0100 |
commit | 677fc42ec08184950350a5ca36d47c7cdc3d8aab (patch) | |
tree | a4c882f7a802cc920f2f1b9e038a01811de55ce3 /XMonad/Hooks | |
parent | 1e7414fd1c72299d1991482eb5dad47bc25f0d9f (diff) | |
download | XMonadContrib-677fc42ec08184950350a5ca36d47c7cdc3d8aab.tar.gz XMonadContrib-677fc42ec08184950350a5ca36d47c7cdc3d8aab.tar.xz XMonadContrib-677fc42ec08184950350a5ca36d47c7cdc3d8aab.zip |
X.H.ManageHelpers: add doHideIgnore
darcs-hash:20081215182758-3ebed-57a3f97d629f988c5bbd16fc17b7b1856f046865.gz
Diffstat (limited to 'XMonad/Hooks')
-rw-r--r-- | XMonad/Hooks/ManageHelpers.hs | 7 |
1 files changed, 6 insertions, 1 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) |