[XMonad] Only raiseNext when pressing class shortcut
This commit is contained in:
parent
a1a0d01f9b
commit
6776d22068
@ -601,8 +601,7 @@ myBringNextMaybe =
|
||||
|
||||
bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())]
|
||||
bindBringAndRaise mask sym start query =
|
||||
[ ((mask, sym),
|
||||
alreadyFocused >>= ifL restoreThisClassOrMinimizeOtherClasses doRaiseNext)
|
||||
[ ((mask, sym), doRaiseNext)
|
||||
, ((mask .|. controlMask, sym), myBringNextMaybe start query)
|
||||
, ((mask .|. shiftMask, sym), doRaiseNext)
|
||||
]
|
||||
|
Loading…
Reference in New Issue
Block a user