From 55a7f36dd493b5e9e2b49c552b64c58422a969f1 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 25 Nov 2016 11:46:36 -0800 Subject: [PATCH] [XMonad] Make bringNextMaybe restore minimized windows --- dotfiles/xmonad/xmonad.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 6fd02ad1..e3d2e9f8 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -366,6 +366,8 @@ greedyFocusWindow w ws = W.focusWindow w $ W.greedyView shiftThenView i = W.greedyView i . W.shift i 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) @@ -393,7 +395,7 @@ doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads myRaiseNextMaybe = ((deactivateFullAnd . maybeUnminimizeClassAfter) .) . raiseNextMaybeCustomFocus greedyFocusWindow myBringNextMaybe = ((deactivateFullAnd . maybeUnminimizeAfter) .) . - raiseNextMaybeCustomFocus bringWindow + raiseNextMaybeCustomFocus greedyBringWindow bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())] bindBringAndRaise mask sym start query =