forked from colonelpanic/dotfiles
[XMonad] Enable direct setting of fading enabled
This commit is contained in:
parent
821030c136
commit
aa263ec5ff
@ -349,13 +349,17 @@ toggleFadeInactiveLogHook =
|
||||
fadeIf (isUnfocused <&&> fadeEnabledForWindow <&&> fadeEnabledForWorkspace)
|
||||
|
||||
toggleFadingForActiveWindow = withWindowSet $
|
||||
maybe (return ()) toggleFadingForWindow . W.peek
|
||||
maybe (return ()) toggleFading . W.peek
|
||||
|
||||
toggleFadingForActiveWorkspace =
|
||||
withWindowSet $ \ws -> toggleFadingForWindow $ W.currentTag ws
|
||||
withWindowSet $ \ws -> toggleFading $ W.currentTag ws
|
||||
|
||||
toggleFadingForWindow w =
|
||||
fmap (ToggleFade . toggleInMap w . fadesMap) XS.get >>= XS.put
|
||||
toggleFading w = setFading' $ toggleInMap w
|
||||
|
||||
setFading w f = setFading' $ M.insert w f
|
||||
|
||||
setFading' f =
|
||||
fmap (ToggleFade . f . fadesMap) XS.get >>= XS.put
|
||||
|
||||
-- Minimize not in class
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user