diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-02-04 06:33:36 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2008-02-04 06:33:36 +0100 |
| commit | cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe (patch) | |
| tree | ceb80e5939c712e1ddee038663cef89ce4f441ac /XMonad/Operations.hs | |
| parent | d6ff01a3811b776cde95b5787358b876f2abc2d6 (diff) | |
| download | xmonad-cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe.tar.gz xmonad-cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe.tar.xz xmonad-cb39abea0d1bed5b7ce7d9d0b3897dd675f325fe.zip | |
Rename runManageHook to runQuery
darcs-hash:20080204053336-a5988-0c8760f33f319acd30cd18630ada2b77a0875a5b.gz
Diffstat (limited to 'XMonad/Operations.hs')
| -rw-r--r-- | XMonad/Operations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index faa5ad2..0e96893 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -23,6 +23,7 @@ import XMonad.Layout (Full(..)) import qualified XMonad.StackSet as W import Data.Maybe +import Data.Monoid (appEndo) import Data.List (nub, (\\), find) import Data.Bits ((.|.), (.&.), complement) import Data.Ratio @@ -65,7 +66,7 @@ manage w = whenX (not <$> isClient w) $ withDisplay $ \d -> do where i = fromMaybe (W.tag . W.workspace . W.current $ ws) $ W.lookupWorkspace sc ws mh <- asks (manageHook . config) - g <- runManageHook mh w `catchX` return id + g <- fmap appEndo (runQuery mh w) `catchX` return id windows (g . f) -- | unmanage. A window no longer exists, remove it from the window |