xmonad shift window 到另一个屏幕一键聚焦

Question

如何使此键绑定使其也集中在移动的 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)]]

Answer 1

使用shiftAndView i = W.view i. W.shift i 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)]]