Fix workspace keybindings (screen off by one)

2023-06-08 18:49:05 +02:00
parent a1ae3dace9
commit 4bd4bfe836
1 changed files with 2 additions and 2 deletions
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -200,9 +200,9 @@ myKeys =
    (m, f) <- zip ["M-", "M-S-"]
                  [W.greedyView, W.shift],
                  (k, w) <- zip myWorkspaceKeys
-                                (withScreen 0 myWorkspaces)
+                                (withScreen 1 myWorkspaces)
                         ++ zip mySharedWorkspaceKeys
-                                (withScreen 1 mySharedWorkspaces)
+                                (withScreen 2 mySharedWorkspaces)
  ]

 zipKeyPrefixes :: [String] -> [String] -> [String]