<柱間 (@hashirama:hashi.sbs)> let workspacen = ["ws1", "ws2", "ws3", "ws4", "ws5", "ws6", "ws7", "ws8", "ws9", "ws10", "ws11", "ws12", "ws13", "ws14", "ws15", "ws16"] `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) ,("C-", windows . copy) ]