wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Update pointer position when changing focus with keyboard

Browse Source
This commit is contained in:
Ivan Malison
2016-12-23 21:06:27 -08:00
parent 49664650f6
commit fa36276f63
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
dotfiles/xmonad/xmonad.hs
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 +++