colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Add if' and ifL to fix window bringer stuff

Browse Source
This commit is contained in:
Ivan Malison 2016-11-25 18:38:32 -08:00
parent a75fa5f584
commit 640b016cf9
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/xmonad/xmonad.hs
View File

@ -80,6 +80,13 @@ tee = (fmap . fmap . fmap) (fmap fst) fork
findM :: (Monad m) => (a -> m (Maybe b)) -> [a] -> m (Maybe b) findM :: (Monad m) => (a -> m (Maybe b)) -> [a] -> m (Maybe b)
findM f = runMaybeT . msum . map (MaybeT . f) findM f = runMaybeT . msum . map (MaybeT . f)
if' :: Bool -> a -> a -> a
if' True x _ = x
if' False _ y = y
ifL :: a -> a -> Bool -> a
ifL a b c = if' c a b
-- Selectors -- Selectors