`additionalKeysP` [ (otherModMasks ++ "M-" ++ key, action tag) | (tag, key) <- zip workspacen (words "1 2 3 4 5 6 7 8 9 0 - = ") , (otherModMasks, action) <- [("", windows . W.greedyView) ,("S-", windows . W.shift) ] ]