[XMonad] Fix Navigation of tabs

This commit is contained in:
2021-08-03 15:22:42 -06:00
parent f8f00d8dd9
commit 70e4f27ece

View File

@@ -832,13 +832,13 @@ buildDirectionalBindings mask commandFn =
myWindowGo direction = do
layoutName <- description . W.layout <$> currentWorkspace
if layoutName == "Tabbed"
if isInfixOf "Tabbed" layoutName
then
case direction of
U -> windows W.focusUp
R -> windows W.focusUp
L -> windows W.focusDown
D -> windows W.focusDown
D -> windows W.focusUp
L -> windows W.focusUp
R -> windows W.focusDown
U -> windows W.focusDown
else windowGo direction True
addKeys conf@XConfig { modMask = modm } =