From c3081bd78384283c2591a7f64da68bffd607b4e7 Mon Sep 17 00:00:00 2001
From: Alexandre Px <al@px.io>
Date: Wed, 7 Sep 2016 21:44:15 +0200
Subject: [PATCH] Switch/Move to physical/Xinerama screens 1, 2 or 3

---
 XMonad/Config/Azerty.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/XMonad/Config/Azerty.hs b/XMonad/Config/Azerty.hs
index a6429985..21761611 100644
--- a/XMonad/Config/Azerty.hs
+++ b/XMonad/Config/Azerty.hs
@@ -46,3 +46,9 @@ azertyKeys conf@(XConfig {modMask = modm}) = M.fromList $
     [((m .|. modm, k), windows $ f i)
         | (i, k) <- zip (workspaces conf) [0x26,0xe9,0x22,0x27,0x28,0x2d,0xe8,0x5f,0xe7,0xe0],
           (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
+    ++
+    -- mod-{z,e,r} %! Switch to physical/Xinerama screens 1, 2, or 3
+    -- mod-shift-{z,e,r} %! Move client to screen 1, 2, or 3
+    [((m .|. modMask, key), screenWorkspace sc >>= flip whenJust (windows . f))
+        | (key, sc) <- zip [xK_z, xK_e, xK_r] [0..],
+          (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]