colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Only raiseNext when pressing class shortcut

Browse Source
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
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
dotfiles/xmonad/xmonad.hs
View File

@ -601,8 +601,7 @@ myBringNextMaybe =
bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())] bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())]
bindBringAndRaise mask sym start query = bindBringAndRaise mask sym start query =
[ ((mask, sym), [ ((mask, sym), doRaiseNext)
alreadyFocused >>= ifL restoreThisClassOrMinimizeOtherClasses doRaiseNext)
, ((mask .|. controlMask, sym), myBringNextMaybe start query) , ((mask .|. controlMask, sym), myBringNextMaybe start query)
, ((mask .|. shiftMask, sym), doRaiseNext) , ((mask .|. shiftMask, sym), doRaiseNext)
] ]