tv xmonad: add xdeny

2021-02-28 21:08:39 +01:00 · 2021-02-28 21:08:39 +01:00 · 1f7fabbd27
commit 1f7fabbd27
parent 009b9f735e
2 changed files with 16 additions and 0 deletions
--- 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"
--- 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