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
|
||||
(<$.>) l r = fmap l . r
|
||||
|
||||
withFocusedD d f = maybe d f <$> (withWindowSet (return . W.peek))
|
||||
|
||||
-- Selectors
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user