From 70e4f27eceb3f5793323004d661ffd2c4d96a125 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Tue, 3 Aug 2021 15:22:42 -0600 Subject: [PATCH] [XMonad] Fix Navigation of tabs --- dotfiles/config/xmonad/xmonad.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/dotfiles/config/xmonad/xmonad.hs b/dotfiles/config/xmonad/xmonad.hs index 45794b74..f2cabb1c 100644 --- a/dotfiles/config/xmonad/xmonad.hs +++ b/dotfiles/config/xmonad/xmonad.hs @@ -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 } =