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