[XMonad] Only raiseNext when pressing class shortcut

This commit is contained in:
Ivan Malison 2017-02-22 17:36:05 -08:00
parent a1a0d01f9b
commit 6776d22068
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -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)
]