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

tv xmonad: use BorderUrgencyHook

Browse Source
This commit is contained in:
tv 2022-03-31 23:12:39 +02:00
parent d27b33d5ef
commit 09ea97a7f2
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -26,7 +26,13 @@ import qualified XMonad.Prompt
import qualified XMonad.StackSet as W import qualified XMonad.StackSet as W
import Data.Map (Map) import Data.Map (Map)
import qualified Data.Map as Map import qualified Data.Map as Map
import XMonad.Hooks.UrgencyHook (SpawnUrgencyHook(..), withUrgencyHook) import XMonad.Hooks.UrgencyHook
( BorderUrgencyHook(BorderUrgencyHook,urgencyBorderColor)
, RemindWhen(Dont)
, SuppressWhen(Never)
, UrgencyConfig(UrgencyConfig,remindWhen,suppressWhen)
, withUrgencyHookC
)
import XMonad.Hooks.ManageHelpers (doCenterFloat,doRectFloat) import XMonad.Hooks.ManageHelpers (doCenterFloat,doRectFloat)
import Data.Ratio import Data.Ratio
import XMonad.Hooks.Place (placeHook, smart) import XMonad.Hooks.Place (placeHook, smart)
@ -55,7 +61,14 @@ mainNoArgs = do
let let
config = config =
id id
$ withUrgencyHook (SpawnUrgencyHook "echo emit Urgency ") $ withUrgencyHookC
BorderUrgencyHook
{ urgencyBorderColor = "#ff0000"
}
UrgencyConfig
{ remindWhen = Dont
, suppressWhen = Never
}
$ def $ def
{ terminal = {-pkg:rxvt_unicode-}"urxvtc" { terminal = {-pkg:rxvt_unicode-}"urxvtc"
, modMask = mod4Mask , modMask = mod4Mask