forked from colonelpanic/dotfiles
[XMonad] Add withFocusedD
This commit is contained in:
parent
d411a2ce2d
commit
9273eb17b7
@ -108,6 +108,8 @@ maybeRemap k = M.findWithDefault k k
|
|||||||
|
|
||||||
(<$.>) :: Functor f => (b -> c) -> (a -> f b) -> a -> f c
|
(<$.>) :: Functor f => (b -> c) -> (a -> f b) -> a -> f c
|
||||||
(<$.>) l r = fmap l . r
|
(<$.>) l r = fmap l . r
|
||||||
|
|
||||||
|
withFocusedD d f = maybe d f <$> (withWindowSet (return . W.peek))
|
||||||
|
|
||||||
-- Selectors
|
-- Selectors
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user