++
  [ (m ++ "M-" ++ [k], windows $ f i)
    | (i, k) <- zip wspaces wsKeys
    , (f, m) <- [(W.greedyView, ""), (W.shift, "S-")]
  ]
  ++
  [ (m ++ "M-" ++ [k], f sc)
      | (k, sc) <- zip wsKeys wspaces
      , (f, m) <- [(windows . W.view, ""), (windows . W.shift, "S-")]
  ]