diff options
| -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 |