xmonad: fade inactive window

.config/xmonad/xmonad.hs

@@ -21,6 +21,7 @@ import XMonad.Layout.NoBorders      (Ambiguity (..), lessBorders, smartBorders)
 import XMonad.Layout.Reflect        (reflectHoriz)
 import XMonad.Layout.Spacing        (spacingWithEdge, smartSpacingWithEdge)
 
+import XMonad.Hooks.FadeWindows     (fadeWindowsLogHook, opaque, isUnfocused, transparency, isFloating)
 import XMonad.Hooks.DynamicLog      (PP (ppCurrent, ppHiddenNoWindows, ppSep),
                                      filterOutWsPP, wrap, xmobarColor)
 import XMonad.Hooks.EwmhDesktops    (ewmh, ewmhFullscreen)
@@ -43,6 +44,7 @@ xmonadConfig =
     , workspaces         = myWorkspaces
     , manageHook         = myManageHook
     , layoutHook         = myLayoutHook
+    , logHook            = myLogHook
     , startupHook        = myStartupHook
     , normalBorderColor  = "#18005f"
     , focusedBorderColor = "#875fff"
@@ -73,6 +75,15 @@ instance LayoutModifier ReflectMsg a where
     | otherwise = do mm <- handleMess m mess
                      return (Left <$> mm)
 
+myLogHook = fadeWindowsLogHook myFadeHook
+
+myFadeHook = 
+  composeAll 
+    [                 opaque
+    , isUnfocused --> transparency 0.03
+    , isFloating  --> transparency 0.05
+    ]
+
 limitorDefault = 3
 
 myLayoutHook =