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

tv xmonad: add xdeny

Browse Source
This commit is contained in:
tv 2021-02-28 21:08:39 +01:00
parent 009b9f735e
commit 1f7fabbd27
2 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,3 +32,6 @@ xcalib = findExecutable "xcalib"
xdpychvt :: FilePath xdpychvt :: FilePath
xdpychvt = findExecutable "xdpychvt" xdpychvt = findExecutable "xdpychvt"
xterm :: FilePath
xterm = findExecutable "xterm"

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

@ -218,6 +218,19 @@ myKeys conf = Map.fromList $
def { XMonad.Prompt.font = myFont } 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 :: PagerConfig
pagerConfig = def pagerConfig = def
{ pc_font = myFont { pc_font = myFont