summaryrefslogtreecommitdiffstats
path: root/pkgs
diff options
context:
space:
mode:
Diffstat (limited to 'pkgs')
-rw-r--r--pkgs/haskell/xmonad-tv/src/main.hs15
1 files changed, 14 insertions, 1 deletions
diff --git a/pkgs/haskell/xmonad-tv/src/main.hs b/pkgs/haskell/xmonad-tv/src/main.hs
index 7256963..1878d8e 100644
--- a/pkgs/haskell/xmonad-tv/src/main.hs
+++ b/pkgs/haskell/xmonad-tv/src/main.hs
@@ -1,4 +1,5 @@
{-# LANGUAGE LambdaCase #-}
+{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE PatternSynonyms #-}
module Main (main) where
@@ -36,6 +37,7 @@ import XMonad.Hooks.UrgencyHook
, RemindWhen(Dont)
, SuppressWhen(Never)
, UrgencyConfig(UrgencyConfig,remindWhen,suppressWhen)
+ , clearUrgents'
, withUrgencyHookC
)
import XMonad.Hooks.ManageHelpers (doCenterFloat,doRectFloat)
@@ -89,6 +91,7 @@ mainNoArgs = do
}
$ def
{ terminal = {-pkg:alacritty-tv-}"alacritty"
+ , clientMask = clientMask def .|. focusChangeMask
, modMask = mod4Mask
, keys = myKeys myTermFont
, layoutHook =
@@ -116,12 +119,22 @@ mainNoArgs = do
(\path -> forkFile path [] Nothing)
, normalBorderColor = "#1c1c1c"
, focusedBorderColor = "#f000b0"
- , handleEventHook = handleShutdownEvent
+ , handleEventHook = handleFocusChangeEvent <> handleShutdownEvent
}
directories <- getDirectories
launch config directories
+handleFocusChangeEvent :: Event -> X All
+handleFocusChangeEvent = \case
+ FocusChangeEvent{ev_event_type,ev_window} | ev_event_type == focusIn -> do
+ clearUrgents' [ev_window]
+ return (All True)
+
+ _ ->
+ return (All True)
+
+
forkFile :: FilePath -> [String] -> Maybe [(String, String)] -> X ()
forkFile path args env =
xfork (executeFile path True args env) >> return ()