hektor
/
dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.xmonad/xmonad.hs
View File

@ -200,9 +200,9 @@ myKeys =
(m, f) <- zip ["M-", "M-S-"] (m, f) <- zip ["M-", "M-S-"]
[W.greedyView, W.shift], [W.greedyView, W.shift],
(k, w) <- zip myWorkspaceKeys (k, w) <- zip myWorkspaceKeys
(withScreen 0 myWorkspaces) (withScreen 1 myWorkspaces)
++ zip mySharedWorkspaceKeys ++ zip mySharedWorkspaceKeys
(withScreen 1 mySharedWorkspaces) (withScreen 2 mySharedWorkspaces)
] ]
zipKeyPrefixes :: [String] -> [String] -> [String] zipKeyPrefixes :: [String] -> [String] -> [String]