[XMonad] Fix Navigation of tabs

This commit is contained in:
Ivan Malison 2021-08-03 15:22:42 -06:00
parent f8f00d8dd9
commit 70e4f27ece
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

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 } =