Xmonad shift window 到另一个屏幕并通过一个键绑定关注它

Xmonad shift window to another screen and focus on it with one keybinding

如何让这个键位绑定,让它也关注被移动的window?

    [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
        | (key, sc) <- zip [xK_h, xK_l] [0..]
        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]

像这样使用 shiftAndView i = W.view i . W.shift i 而不是 W.shift

  [((m .|. modm, key), screenWorkspace sc >>= flip whenJust (windows . f))
    | (key, sc) <- zip [xK_h, xK_l] [0..]
    , let shiftAndView i = W.view i . W.shift i
    , (f, m) <- [(W.view, 0), (shiftAndView, shiftMask)]]