[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 myWindowGo direction = do
layoutName <- description . W.layout <$> currentWorkspace layoutName <- description . W.layout <$> currentWorkspace
if layoutName == "Tabbed" if isInfixOf "Tabbed" layoutName
then then
case direction of case direction of
U -> windows W.focusUp D -> windows W.focusUp
R -> windows W.focusUp L -> windows W.focusUp
L -> windows W.focusDown R -> windows W.focusDown
D -> windows W.focusDown U -> windows W.focusDown
else windowGo direction True else windowGo direction True
addKeys conf@XConfig { modMask = modm } = addKeys conf@XConfig { modMask = modm } =