diff options
| -rw-r--r-- | XMonad/ManageHook.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs index e48a9b5..8fb61ee 100644 --- a/XMonad/ManageHook.hs +++ b/XMonad/ManageHook.hs @@ -49,6 +49,16 @@ p --> f = p >>= \b -> if b then f else mempty (=?) :: Eq a => Query a -> a -> Query Bool q =? x = fmap (== x) q +infixr 3 <&&>, <||> + +-- | 'p <&&> q'. '&&' lifted to a Monad. +(<&&>) :: Monad m => m Bool -> m Bool -> m Bool +(<&&>) = liftM2 (&&) + +-- | 'p <||> q'. '||' lifted to a Monad. +(<||>) :: Monad m => m Bool -> m Bool -> m Bool +(<||>) = liftM2 (||) + -- | Queries that return the window title, resource, or class. title, resource, className :: Query String title = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe "") $ io $ fetchName d w) |