Arch Linux

LIKAN_BLK

Member

Registered: 2012-01-07

Posts: 7

Xmonad some action on window focus change

I want to do some action when I change focused  window in xmonad. I have some piece of code

myMouseBindings :: XConfig Layout -> M.Map (KeyMask, Button) (Window -> X ())
myMouseBindings (XConfig {XMonad.modMask = modMask}) = M.fromList $
    [ ((modMask, button1), (\w -> focus w >> mouseMoveWindow w >> windows W.shiftMaster)) --Set the window to floating mode and move by dragging
    , ((modMask, button2), (\w -> focus w >> windows W.shiftMaster))                      --Raise the window to the top of the stack
    , ((modMask, button3), (\w -> focus w >> Flex.mouseResizeWindow w))                   --Set the window to floating mode and resize by dragging
    , ((modMask, button4), (\_ -> prevWS))                                                --Switch to previous workspace
    , ((modMask, button5), (\_ -> nextWS))                                                --Switch to next workspace
    , (((modMask .|. shiftMask), button4), (\_ -> shiftToPrev))                           --Send client to previous workspace
    , (((modMask .|. shiftMask), button5), (\_ -> shiftToNext))                           --Send client to next workspace
    ]

I'm interested in this line

((modMask, button2), (\w -> focus w >> windows W.shiftMaster))                      --Raise the window to the top of the stack

I want to do this action in every focus change on next focused widow, how to do this?