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