diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-09 02:18:28 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-09 02:18:28 +0200 |
| commit | c4630dfd41c7ee2bdb2cc9f75a139b51e28ea9e4 (patch) | |
| tree | c023b9b853db82cf499204d9638108e649060613 /XMonad/ManageHook.hs | |
| parent | 5b87ecbe82f6b979069ebf26dc8b3357867bea8b (diff) | |
| download | metatile-c4630dfd41c7ee2bdb2cc9f75a139b51e28ea9e4.tar metatile-c4630dfd41c7ee2bdb2cc9f75a139b51e28ea9e4.zip | |
Remove concept of floating windows
They will be re-introduced later as a layout modifier
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) |