diff options
| author | tv <tv@krebsco.de> | 2021-02-28 21:08:39 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2021-02-28 21:14:03 +0100 |
| commit | 1f7fabbd272581d10576f86e7d6b64570e05518e (patch) | |
| tree | e47d16bb04c9879e8bed1d9f0b1a3d0a1da51eb8 /tv/5pkgs/haskell/xmonad-tv/src | |
| parent | 009b9f735e9305d0e1c1e5678252b172f36fb449 (diff) | |
tv xmonad: add xdeny
Diffstat (limited to 'tv/5pkgs/haskell/xmonad-tv/src')
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/Paths.hs | 3 | ||||
| -rw-r--r-- | tv/5pkgs/haskell/xmonad-tv/src/main.hs | 13 |
2 files changed, 16 insertions, 0 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs b/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs index b2ad01ae7..2569b60c3 100644 --- a/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs +++ b/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs @@ -32,3 +32,6 @@ xcalib = findExecutable "xcalib" xdpychvt :: FilePath xdpychvt = findExecutable "xdpychvt" + +xterm :: FilePath +xterm = findExecutable "xterm" diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs index c93a94735..532f3ed16 100644 --- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs +++ b/tv/5pkgs/haskell/xmonad-tv/src/main.hs @@ -218,6 +218,19 @@ myKeys conf = Map.fromList $ def { XMonad.Prompt.font = myFont } +xdeny :: X () +xdeny = + forkFile + Paths.xterm + [ "-fn", myFont + , "-geometry", "300x100" + , "-name", "AlertFloat" + , "-bg", "#E4002B" + , "-e", "sleep", "0.05" + ] + Nothing + + pagerConfig :: PagerConfig pagerConfig = def { pc_font = myFont |