xmonad: tidier implementation of shitAndFollow