vanadium/xmonad: refactor opacity rules

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

@@ -49,19 +49,31 @@ main =
 
       , logHook =
           let
+            isOneOf :: Eq a => Query a -> [a] -> Query Bool
+            isOneOf q = fmap or . traverse (q =?)
+
+            isFocused :: Query Bool
+            isFocused = fmap not isUnfocused
+
             fadeHook =
               composeOne
-                [ className ~? "steam"   -?> opaque
+                [ -- easier to paint over stuff
+                  isFloating
+                      <&&> isFocused
+                      <&&> title ~? "Wplace"
+                    -?> transparency 0.5
 
-                -- easier to paint over stuff
+                  -- matches the second string of the WM_CLASS
-                , isFloating
+                , className `isOneOf`
-                  <&&> fmap not isUnfocused
+                      [ "firefox"
-                  <&&> title ~? "Wplace" -?> transparency 0.5
+                      , "Signal"
-
+                      , "steam"
-                , className =? "firefox" -?> opaque
+                      , "discord"
+                      ]
+                    -?> opaque
 
+                , isFloating  -?> ifM isFocused (transparency 0.04) (transparency 0.08)
                 , isUnfocused -?> transparency 0.02
-                , isFloating  -?> transparency 0.08
                 ]
            in
             fadeWindowsLogHook fadeHook