[XMonad] Clean up ToggleFade

dotfiles/xmonad/xmonad.hs

@@ -288,28 +288,27 @@ getWorkspaceNameFromTag getWSName tag =
 
 -- Toggleable fade
 
-newtype ToggleFade = ToggleFade (M.Map Window Bool)
+newtype ToggleFade =
-    deriving (Typeable, Read, Show)
+  ToggleFade {
+    fadesMap :: (M.Map Window Bool)
+  }
+  deriving (Typeable, Read, Show)
 
 instance ExtensionClass ToggleFade where
-    initialValue = ToggleFade M.empty
+  initialValue = ToggleFade M.empty
-    extensionType = PersistentExtension
+  extensionType = PersistentExtension
 
-fadeEnabledForWindow = ask >>= \w -> liftX (do
+fadeEnabledForWindow = ask >>= \w ->
-                         ToggleFade toggleMap <- XS.get
+  liftX $ (M.findWithDefault True w) . fadesMap <$> XS.get
-                         return $ M.findWithDefault True w toggleMap)
 
-toggleFadeInactiveLogHook = fadeOutLogHook . fadeIf (isUnfocused <&&> fadeEnabledForWindow)
+toggleFadeInactiveLogHook =
+  fadeOutLogHook . fadeIf (isUnfocused <&&> fadeEnabledForWindow)
 
-toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
+toggleFadingForActiveWindow = withWindowSet $
-  ToggleFade toggleMap <- XS.get
+  maybe (return()) toggleFadingForWindow . W.peek
-  let maybeWindow = W.peek windowSet
+
-  case maybeWindow of
+toggleFadingForWindow w =
-    Nothing -> return ()
+  fmap (ToggleFade . toggleInMap w . fadesMap) XS.get >>= XS.put
-    Just window -> do
-        let existingValue = M.findWithDefault True window toggleMap
-        XS.put $ ToggleFade (M.insert window (not existingValue) toggleMap)
-        return ()
 
 -- Minimize not in class