diff options
Diffstat (limited to 'XMonad/ManageHook.hs')
-rw-r--r-- | XMonad/ManageHook.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index 856c742..64f9fe6 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -27,7 +27,7 @@ import Control.Monad.Reader import Data.Maybe import Data.Monoid import qualified XMonad.StackSet as W -import XMonad.Operations (floatLocation, reveal) +import XMonad.Operations (reveal) -- | Lift an 'X' action to a 'Query'. liftX :: X a -> Query a @@ -106,10 +106,6 @@ getStringProperty d w p = do doF :: (s -> s) -> Query (Endo s) doF = return . Endo --- | Move the window to the floating layer. -doFloat :: ManageHook -doFloat = ask >>= \w -> doF . W.float w . snd =<< liftX (floatLocation w) - -- | Map the window and remove it from the 'WindowSet'. doIgnore :: ManageHook doIgnore = ask >>= \w -> liftX (reveal w) >> doF (W.delete w) |