From 2793ac23495d3ee5a0c79131c188c8d7a05b0ff7 Mon Sep 17 00:00:00 2001
From: Hektor Misplon <hektor.misplon@pm.me>
Date: Wed, 3 Jan 2024 19:39:15 +0100
Subject: [PATCH] Update 'shiftAndView'

---
 .xmonad/xmonad.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index a20313e..7edb3c6 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -3,6 +3,7 @@
 import XMonad
 import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
 import XMonad.Actions.FloatSnap
+import Control.Monad (liftM2)
 import XMonad.Hooks.DynamicProperty
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
@@ -60,7 +61,7 @@ pp =
 -- Workspaces & screens {{{
 
 -- Shift to workspace and view workspace
-shiftAndView id = doF (W.view id) <> doF (W.shift id)
+shiftAndView = doF . liftM2 (.) W.greedyView W.shift
 
 -- }}}