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

[XMonad] Add toggle functions (needed for previous rewrites)

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

8
dotfiles/xmonad/xmonad.hs
View File

@ -88,6 +88,14 @@ if' False _ y = y
ifL :: a -> a -> Bool -> a ifL :: a -> a -> Bool -> a
ifL a b c = if' c a b ifL a b c = if' c a b
toggleInMap' d k m =
let existingValue = M.findWithDefault d k m
in (M.insert k (not existingValue) m)
toggleInMap = toggleInMap' True
maybeRemap k = M.findWithDefault k k
-- Selectors -- Selectors