Fix deprecated 'dynamicPropertyChange'

master
Hektor Misplon 2024-03-30 16:00:54 +01:00
parent 42df25d5cc
commit b0df672009
Signed by: hektor
GPG Key ID: 5151AF79E723F21C
1 changed files with 2 additions and 2 deletions

View File

@ -4,7 +4,7 @@ import XMonad
import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies) import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
import XMonad.Actions.FloatSnap import XMonad.Actions.FloatSnap
import Control.Monad (liftM2) import Control.Monad (liftM2)
import XMonad.Hooks.DynamicProperty import XMonad.Hooks.OnPropertyChange (onXPropertyChange)
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers import XMonad.Hooks.ManageHelpers
@ -158,7 +158,7 @@ myConfig =
startupHook = myStartupHook, startupHook = myStartupHook,
manageHook = myManageHook <+> manageHook def, manageHook = myManageHook <+> manageHook def,
layoutHook = avoidStruts myLayoutHook, layoutHook = avoidStruts myLayoutHook,
handleEventHook = dynamicPropertyChange "WM_NAME" myDynamicManageHook <> handleEventHook def <> Hacks.windowedFullscreenFixEventHook handleEventHook = onXPropertyChange "WM_NAME" myDynamicManageHook <> handleEventHook def <> Hacks.windowedFullscreenFixEventHook
} }
`removeKeysP` myRemoveKeys `removeKeysP` myRemoveKeys
`additionalKeysP` myKeys `additionalKeysP` myKeys