What I'm trying to do is prevent my focus from switching to a different screen if I mistakenly try to switch to an already visible workspace. I already am not using greedyView so I don't have the problem of the visible workspaces swapping on me. But suppose I have two screens and workspace 1 is on the left, workspace 2 is on the right. If I'm focused on the left screen, and I were to press mod-2, the focus switches to the screen on the right. If I now press mod-3 it will be the right screen which switches to workspace 3. This annoys me, because it effectively prevents me from cycling through workspaces on one screen. Greedyview I think would not have this issue, but the screen swapping confuses me. What I want is, when I'm on the left screen and I press mod-2, which is an already visible workspace, nothing should happen. No swapping of screens, and no moving of focus.

   [((m .|. modm, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
        , (f, m) <- [(viewHidden, 0), (W.shift, shiftMask)]