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

[XMonad] Enable direct setting of fading enabled

Browse Source
This commit is contained in:
Ivan Malison 2016-11-29 20:18:53 -08:00
parent 821030c136
commit aa263ec5ff
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dotfiles/xmonad/xmonad.hs
View File

@ -349,13 +349,17 @@ toggleFadeInactiveLogHook =
fadeIf (isUnfocused <&&> fadeEnabledForWindow <&&> fadeEnabledForWorkspace) fadeIf (isUnfocused <&&> fadeEnabledForWindow <&&> fadeEnabledForWorkspace)
toggleFadingForActiveWindow = withWindowSet $ toggleFadingForActiveWindow = withWindowSet $
maybe (return ()) toggleFadingForWindow . W.peek maybe (return ()) toggleFading . W.peek
toggleFadingForActiveWorkspace = toggleFadingForActiveWorkspace =
withWindowSet $ \ws -> toggleFadingForWindow $ W.currentTag ws withWindowSet $ \ws -> toggleFading $ W.currentTag ws
toggleFadingForWindow w = toggleFading w = setFading' $ toggleInMap w
fmap (ToggleFade . toggleInMap w . fadesMap) XS.get >>= XS.put
setFading w f = setFading' $ M.insert w f
setFading' f =
fmap (ToggleFade . f . fadesMap) XS.get >>= XS.put
-- Minimize not in class -- Minimize not in class