Add 'swallowEventHook'

This commit is contained in:
2024-03-30 16:50:15 +01:00
parent 98ae2f590f
commit 1431f1dfc6

View File

@@ -10,6 +10,7 @@ import XMonad.Hooks.ManageHelpers
import XMonad.Hooks.OnPropertyChange (onXPropertyChange) import XMonad.Hooks.OnPropertyChange (onXPropertyChange)
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Hooks.StatusBar.PP import XMonad.Hooks.StatusBar.PP
import XMonad.Hooks.WindowSwallowing (swallowEventHook)
import XMonad.Layout.CenteredIfSingle import XMonad.Layout.CenteredIfSingle
import XMonad.Layout.IndependentScreens import XMonad.Layout.IndependentScreens
import XMonad.Layout.PerScreen import XMonad.Layout.PerScreen
@@ -130,9 +131,12 @@ myLayoutHook =
-- handleEventHook {{{ -- handleEventHook {{{
myHandleEventHook = myHandleEventHook =
onXPropertyChange "WM_NAME" myDynamicManageHook handleEventHook def
<> handleEventHook def -- See window swallowing (https://hackage.haskell.org/package/xmonad-contrib-0.18.0/docs/XMonad-Hooks-WindowSwallowing.html)
<> swallowEventHook (className =? "Alacritty") (return True)
<> onXPropertyChange "WM_NAME" myDynamicManageHook
<> Hacks.windowedFullscreenFixEventHook <> Hacks.windowedFullscreenFixEventHook
<> hintsEventHook
-- }}} -- }}}
-- }}} -- }}}