mpo/xmonad-config
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

UpdatePointer when changing focus

Browse source
This commit is contained in:
Martin Potier 2017-12-11 10:56:34 +02:00
parent c900b93209
commit cf78d0a900
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
xmonad.hs
View file

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