[xmonad] Issue 417 in xmonad: managehook use focused window to work on