Mic92/stockholm
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tv xmonad: add ewmh

Browse Source
This commit is contained in:
tv 2023-01-18 21:20:08 +01:00
parent 9a7e3bf962
commit a8cb132873
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tv/5pkgs/haskell/xmonad-tv/src/main.hs
View File

@ -4,6 +4,7 @@
module Main (main) where module Main (main) where
import System.Exit (exitFailure) import System.Exit (exitFailure)
import XMonad.Hooks.EwmhDesktops (ewmh)
import Control.Exception import Control.Exception
import Control.Monad.Extra (whenJustM) import Control.Monad.Extra (whenJustM)
@ -71,7 +72,7 @@ mainNoArgs = do
handleShutdownEvent <- newShutdownEventHandler handleShutdownEvent <- newShutdownEventHandler
let let
config = config =
id ewmh
$ withUrgencyHookC $ withUrgencyHookC
BorderUrgencyHook BorderUrgencyHook
{ urgencyBorderColor = "#ff0000" { urgencyBorderColor = "#ff0000"