Add 'swallowEventHook'

master
Hektor Misplon 2024-03-30 16:50:15 +01:00
parent b6ba9ab4ea
commit e771a09fbe
Signed by: hektor
GPG Key ID: 5151AF79E723F21C
1 changed files with 7 additions and 3 deletions

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)
<> Hacks.windowedFullscreenFixEventHook <> swallowEventHook (className =? "Alacritty") (return True)
<> onXPropertyChange "WM_NAME" myDynamicManageHook
<> Hacks.windowedFullscreenFixEventHook
<> hintsEventHook
-- }}} -- }}}
-- }}} -- }}}