wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Add withFocusedD

Browse Source
This commit is contained in:
Ivan Malison 2016-11-29 15:46:08 -08:00
parent d411a2ce2d
commit 9273eb17b7
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/xmonad/xmonad.hs
View File

@ -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