[XMonad] Make bringNextMaybe restore minimized windows

This commit is contained in:
Ivan Malison 2016-11-25 11:46:36 -08:00
parent 2cd0c1aa29
commit 55a7f36dd4
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -366,6 +366,8 @@ greedyFocusWindow w ws = W.focusWindow w $ W.greedyView
shiftThenView i = W.greedyView i . W.shift i shiftThenView i = W.greedyView i . W.shift i
shiftToEmptyAndView = doTo Next EmptyWS DWO.getSortByOrder (windows . shiftThenView) shiftToEmptyAndView = doTo Next EmptyWS DWO.getSortByOrder (windows . shiftThenView)
greedyBringWindow w = greedyFocusWindow w . bringWindow w
swapFocusedWith w ws = W.modify' (swapFocusedWith' w) (W.delete' w ws) swapFocusedWith w ws = W.modify' (swapFocusedWith' w) (W.delete' w ws)
@ -393,7 +395,7 @@ doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads
myRaiseNextMaybe = ((deactivateFullAnd . maybeUnminimizeClassAfter) .) . myRaiseNextMaybe = ((deactivateFullAnd . maybeUnminimizeClassAfter) .) .
raiseNextMaybeCustomFocus greedyFocusWindow raiseNextMaybeCustomFocus greedyFocusWindow
myBringNextMaybe = ((deactivateFullAnd . maybeUnminimizeAfter) .) . myBringNextMaybe = ((deactivateFullAnd . maybeUnminimizeAfter) .) .
raiseNextMaybeCustomFocus bringWindow raiseNextMaybeCustomFocus greedyBringWindow
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 =