diff options
| author | tv <tv@krebsco.de> | 2023-01-18 21:20:08 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2023-01-19 14:08:27 +0100 |
| commit | 3a2234ed52ee79339c0a79ce86cd65aadccbdb09 (patch) | |
| tree | 5e067f9d5478a127a0953a91a555466498d3bf67 | |
| parent | 6cdc30f73524b3c68009c95569e4716cab07a6a7 (diff) | |
tv xmonad: add ewmh
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs index 6ac6b6b..2061ae4 100644 --- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs +++ b/tv/5pkgs/haskell/xmonad-tv/src/main.hs @@ -4,6 +4,7 @@ module Main (main) where import System.Exit (exitFailure) +import XMonad.Hooks.EwmhDesktops (ewmh) import Control.Exception import Control.Monad.Extra (whenJustM) @@ -71,7 +72,7 @@ mainNoArgs = do handleShutdownEvent <- newShutdownEventHandler let config = - id + ewmh $ withUrgencyHookC BorderUrgencyHook { urgencyBorderColor = "#ff0000" |