From 1a73a1dc65d6a22b238c4b3baedaac20da17c5a4 Mon Sep 17 00:00:00 2001
From: Adrian Kummerlaender
Date: Wed, 26 Apr 2023 14:19:33 +0200
Subject: Add keybinding for switching between physical screens

---
 gui/conf/xmonad.hs | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'gui')

diff --git a/gui/conf/xmonad.hs b/gui/conf/xmonad.hs
index 31fce88..65c2d13 100644
--- a/gui/conf/xmonad.hs
+++ b/gui/conf/xmonad.hs
@@ -17,6 +17,8 @@ import XMonad.Layout.Grid
 import XMonad.Layout.Groups.Examples
 import XMonad.Layout.Groups.Helpers
 
+import XMonad.Actions.PhysicalScreens
+
 import XMonad.Layout.NoBorders
 import XMonad.Layout.Reflect
 import XMonad.Layout.MultiToggle
@@ -214,13 +216,15 @@ commonKeybindings host =
   [ ("C-<Backspace>" , toggleWS' ["NSP"])
 
 -- workspace movement
-  , ("M-s j"           , moveTo  Next nonEmptyWS)
-  , ("M-s k"           , moveTo  Prev nonEmptyWS)
-  , ("M-S-s j"         , shiftTo Next nonEmptyWS >> moveTo Next nonEmptyWS)
-  , ("M-S-s k"         , shiftTo Prev nonEmptyWS >> moveTo Prev nonEmptyWS)
+  , ("M-s j"         , moveTo  Next nonEmptyWS)
+  , ("M-s k"         , moveTo  Prev nonEmptyWS)
+  , ("M-S-s j"       , shiftTo Next nonEmptyWS >> moveTo Next nonEmptyWS)
+  , ("M-S-s k"       , shiftTo Prev nonEmptyWS >> moveTo Prev nonEmptyWS)
+
+-- physical screen change
+  , ("M-<Tab>"       , nextScreen)
 
 -- workspace layout management
-  , ("M-y"           , refresh)
   , ("M-v"           , layoutMenu)
   , ("M-s l"         , sendMessage NextLayout)
   , ("M-s +"         , sendMessage $ IncMasterN   1)
-- 
cgit v1.2.3