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 | |
| 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
| -rw-r--r-- | XMonad/Hooks/ManageHelpers.hs | 7 | ||||
| -rw-r--r-- | 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 |