Add 'swallowEventHook'
This commit is contained in:
@@ -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
|
||||||
-- }}}
|
-- }}}
|
||||||
|
|
||||||
-- }}}
|
-- }}}
|
||||||
|
|||||||
Reference in New Issue
Block a user