vanadium/xmonad: remove fade

nix/configurations/vanadium/home/xmonad/xmonad.hs

@@ -6,7 +6,6 @@ import XMonad.Actions.Submap
 import XMonad.Actions.SwapWorkspaces
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
-import XMonad.Hooks.FadeWindows
 import XMonad.Hooks.InsertPosition
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.ManageHelpers
@@ -48,32 +47,7 @@ main =
       , terminal           = myTerm
       , workspaces         = myWorkspaces
 
-      , logHook =
-          let
-            fadeHook =
-              composeOne
-                [ -- easier to paint over stuff
-                  isFloating
-                      <&&> isFocused
-                      <&&> title ~? "Wplace"
-                    -?> transparency 0.5
-
-                  -- matches the second string of the WM_CLASS
-                , className `isOneOf`
-                      [ "firefox"
-                      , "Signal"
-                      , "steam"
-                      , "discord"
-                      , "vlc"
-                      ]
-                    -?> opaque
-
-                , isFloating  -?> ifM isFocused (transparency 0.04) (transparency 0.08)
-                , isUnfocused -?> transparency 0.02
-                ]
-           in
-            fadeWindowsLogHook fadeHook
-              <> refocusLastLogHook
+      , logHook = refocusLastLogHook
 
       , startupHook = do
           spawnOnce "fcitx5 &"                                -- Input method
@@ -267,9 +241,6 @@ xmobarConfig = statusBarProp "xmobar -x 0" (pure myPrettyPrinter)
 isOneOf :: Eq a => Query a -> [a] -> Query Bool
 isOneOf q = fmap or . traverse (q =?)
 
-isFocused :: Query Bool
-isFocused = fmap not isUnfocused
-
 isFirefoxPIP :: Query Bool
 isFirefoxPIP =
   className =? "firefox"