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 | a8cb1328737926cf948d1a7dfbdfd6eff35428d9 (patch) | |
tree | c37787859f75cf1442b389be2af8f15a274b2b45 | |
parent | 9a7e3bf96250d9f9090d4eebac18240f54167a84 (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 6ac6b6b10..2061ae4b9 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" |