From 4bd4bfe8362a8bfddd1769245cff15ce629d1f2f Mon Sep 17 00:00:00 2001
From: Hektor Misplon <hektor.misplon@pm.me>
Date: Thu, 8 Jun 2023 18:49:05 +0200
Subject: [PATCH] Fix workspace keybindings (screen off by one)

---
 .xmonad/xmonad.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index c3bc96d..7afabd8 100644
--- 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]