[XMonad] Update pointer position when changing focus with keyboard

This commit is contained in:
Ivan Malison 2016-12-23 21:06:27 -08:00
parent 49664650f6
commit fa36276f63
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -24,6 +24,7 @@ import XMonad.Actions.CycleWS hiding (nextScreen)
import qualified XMonad.Actions.DynamicWorkspaceOrder as DWO import qualified XMonad.Actions.DynamicWorkspaceOrder as DWO
import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace) import XMonad.Actions.DynamicWorkspaces hiding (withWorkspace)
import XMonad.Actions.Minimize import XMonad.Actions.Minimize
import XMonad.Actions.UpdatePointer
import XMonad.Actions.WindowBringer import XMonad.Actions.WindowBringer
import XMonad.Actions.WindowGo import XMonad.Actions.WindowGo
import XMonad.Actions.WorkspaceNames import XMonad.Actions.WorkspaceNames
@ -64,7 +65,7 @@ main =
, manageHook = myManageHook <+> manageHook def , manageHook = myManageHook <+> manageHook def
, layoutHook = myLayoutHook , layoutHook = myLayoutHook
, logHook = , logHook =
toggleFadeInactiveLogHook 0.9 +++ updatePointer (0.5, 0.5) (0, 0) +++ toggleFadeInactiveLogHook 0.9 +++
ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++ ewmhWorkspaceNamesLogHook' myGetWorkspaceNameFromTag +++
(myGetWorkspaceNameFromTag <$> getWorkspaceNames' >>= pagerHintsLogHookCustom) (myGetWorkspaceNameFromTag <$> getWorkspaceNames' >>= pagerHintsLogHookCustom)
, handleEventHook = fullscreenEventHook +++ , handleEventHook = fullscreenEventHook +++