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

[XMonad] Remove ifL

Browse Source
This commit is contained in:
Ivan Malison 2016-11-26 09:53:47 -08:00
parent 46a5bb1daa
commit 7fa87fd82c
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/xmonad/xmonad.hs
View File

@ -87,9 +87,6 @@ if' :: Bool -> a -> a -> a
if' True x _ = x if' True x _ = x
if' False _ y = y if' False _ y = y
ifL :: a -> a -> Bool -> a
ifL a b c = if' c a b
toggleInMap' d k m = toggleInMap' d k m =
let existingValue = M.findWithDefault d k m let existingValue = M.findWithDefault d k m
in M.insert k (not existingValue) m in M.insert k (not existingValue) m
@ -241,7 +238,9 @@ myWindowBringerConfig =
} }
classIfMatches window entry = classIfMatches window entry =
ifL (Just $ snd entry) Nothing <$> runQuery (fst entry) window if' <$> runQuery (fst entry) window <*>
pure (Just $ snd entry) <*>
pure Nothing
getClassRaw w = fmap resClass $ withDisplay $ io . flip getClassHint w getClassRaw w = fmap resClass $ withDisplay $ io . flip getClassHint w