This is my workspaces keybind (EZConfig) ++ [ (m ++ "M-" ++ [k], windows (f i)) | (i, k) <- zip wspaces wsKeys , (f, m) <- [(W.greedyView, ""), (W.shift, "S-")] ])