Fix workspace keybindings (screen off by one)

master
Hektor Misplon 2023-06-08 18:49:05 +02:00
parent a1ae3dace9
commit 4bd4bfe836
1 changed files with 2 additions and 2 deletions

View File

@ -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]