From aa263ec5ff324227fc7937ef016fb5cbe20a4075 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Tue, 29 Nov 2016 20:18:53 -0800
Subject: [PATCH] [XMonad] Enable direct setting of fading enabled

---
 dotfiles/xmonad/xmonad.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 806a9d43..265d792c 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -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