From 1f7fabbd272581d10576f86e7d6b64570e05518e Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 28 Feb 2021 21:08:39 +0100
Subject: tv xmonad: add xdeny

---
 tv/5pkgs/haskell/xmonad-tv/src/main.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'tv/5pkgs/haskell/xmonad-tv/src/main.hs')

diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs
index c93a9473..532f3ed1 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
-- 
cgit v1.2.3