UpdatePointer when changing focus

xmonad.hs

@@ -12,6 +12,7 @@ import Text.EditDistance
 import System.Exit
 import XMonad
 import XMonad.Actions.CycleWS
+import XMonad.Actions.UpdatePointer
 import XMonad.Config.Desktop
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.ManageHelpers
@@ -72,11 +73,16 @@ bar :: LayoutClass l Window => XConfig l -> IO (XConfig (ModifiedLayout AvoidStr
 bar conf = statusBar "xmobar /home/eeva/.xmonad/xmobarrc" barPP hideBarsKey conf
   where hideBarsKey XConfig{modMask = modm} = (modm, xK_b)
 
+lh = do
+  ls <- dynamicLogString def
+  xmonadPropLog ls
+  updatePointer (0.5,0.5) (0,0)
+
 myConfig = desktopConfig
     { modMask            = mod4Mask -- Use the "Win" key for the mod key
     , manageHook         = myManageHook <+> manageHook desktopConfig
     , layoutHook         = desktopLayoutModifiers $ myLayouts
-    , logHook            = dynamicLogString def >>= xmonadPropLog
+    , logHook            = lh
     , terminal           = "/run/current-system/sw/bin/kitty"
     , workspaces         = wkspcs
     , normalBorderColor  = S.base03
@@ -92,9 +98,9 @@ myConfig = desktopConfig
       , ("M-<Delete>", kill)
       , ("M-<Down>", windows W.focusDown)
       , ("M-<Esc>", sendMessage (Toggle "Full"))
+      , ("M-$", sendMessage (Toggle "Full"))
       , ("M-<Left>", prevWS)
-      , ("M-<Page_Down>", nextScreen)
-      , ("M-<Page_Up>"  , prevScreen)
+      , ("M-e", nextScreen)
       , ("M-<Right>", nextWS)
       , ("M-<Tab>", toggleWS)
       , ("M-<Up>", windows W.focusUp)