forked from colonelpanic/dotfiles
[XMonad] Fix Navigation of tabs
This commit is contained in:
parent
f8f00d8dd9
commit
70e4f27ece
@ -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 } =
|
||||||
|
Loading…
Reference in New Issue
Block a user