diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-18 14:16:53 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-07-18 14:16:53 +0200 |
commit | 527abbe03a87d4c352ad719967b2c4cdff545dfa (patch) | |
tree | 08d4f47d5dcea27724840fe3b55be95952896a18 | |
parent | e29db941e75488dfafc4268b5c8f297de1381bad (diff) | |
download | xmonad-conf-527abbe03a87d4c352ad719967b2c4cdff545dfa.tar xmonad-conf-527abbe03a87d4c352ad719967b2c4cdff545dfa.zip |
The last fix wasn't a good idea after all...
-rw-r--r-- | xmonad.hs | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -108,17 +108,10 @@ myStartupHook = do isUtility :: Query Bool isUtility = isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_UTILITY" -moveToBottom :: ManageHook -moveToBottom = doF $ \windowSet@W.StackSet {W.current = screen@W.Screen {W.workspace = ws@W.Workspace {W.stack = windowStack}}} -> - let windowStack' = fmap (\(W.Stack f u d) -> W.Stack f (reverse d ++ u) []) windowStack - in windowSet { W.current = screen {W.workspace = ws {W.stack = windowStack'}} } - - myManageHook :: ManageHook myManageHook = composeAll - [ moveToBottom - , isDialog --> doFloat + [ isDialog --> doFloat , composeOne [ className =? "Guake.py" -?> doFloatMaybeFullscreen -- <+> doConfigBorderOff) --, className =? "Do" -?> (doFloat <+> doConfigBorderOff) |