From 684c2644a607ada1265ef13c13d903e1447e0617 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 10 Nov 2016 18:05:50 -0800
Subject: [PATCH] [XMonad] Ensure that the focused window is not minimized

---
 dotfiles/xmonad/xmonad.hs | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 94de284e..c502da49 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -39,6 +39,7 @@ import XMonad.Layout.Spacing
 import qualified XMonad.StackSet as W
 import XMonad.Util.CustomKeys
 import qualified XMonad.Util.ExtensibleState as XS
+import XMonad.Util.Minimize
 import XMonad.Util.NamedWindows (getName)
 
 main = xmonad $ def
@@ -46,7 +47,8 @@ main = xmonad $ def
        , terminal = "urxvt"
        , manageHook = manageDocks <+> myManageHook <+> manageHook def
        , layoutHook = myLayoutHook
-       , logHook = toggleFadeInactiveLogHook 0.9 +++ ewmhWorkspaceNamesLogHook
+       , logHook = toggleFadeInactiveLogHook 0.9 +++ ewmhWorkspaceNamesLogHook +++
+                   maybeUnminimizeFocused
        , handleEventHook = docksEventHook <+> fullscreenEventHook +++
                            ewmhDesktopsEventHook +++ pagerHintsEventHook
        , startupHook = myStartup +++ ewmhWorkspaceNamesLogHook
@@ -73,7 +75,8 @@ virtualClasses = [ (hangoutsSelector, "Hangouts")
                  , (transmissionSelector, "Transmission")
                  ]
 
--- Startup hoo
+-- Startup hook
+
 myStartup = spawn "systemctl --user start wm.target"
 
 -- Manage hook
@@ -188,7 +191,6 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
         let existingValue = M.findWithDefault True window toggleMap
         XS.put $ ToggleFade (M.insert window (not existingValue) toggleMap)
         return ()
-
 
 -- Minimize not in class
 
@@ -207,6 +209,13 @@ windowsWithOtherClasses workspace window = do
   let predicate = (/= windowClass)
   filterM (\w -> predicate <$> getClass w) (W.integrate workspace)
 
+windowIsMinimized w = do
+  minimized <- XS.gets minimizedStack
+  return $ w `elem` minimized
+
+maybeUnminimizeFocused = withFocused $ \w ->
+  windowIsMinimized w >>= flip when (maximizeWindow w)
+
 restoreAllMinimized = restoreFocus $
   withLastMinimized $ \w -> maximizeWindow w >> restoreAllMinimized
 
@@ -258,8 +267,7 @@ addKeys conf@XConfig {modMask = modm} =
     , ((modm .|. shiftMask, xK_m), restoreAllMinimized)
     , ((modm, xK_backslash), toggleWS)
 
-    -- TODO: there seems to be a bug with these bindings
-    -- Rebind these for boringWindows
+    -- These need to be rebound to support boringWindows
     , ((modm, xK_j), focusDown)
     , ((modm, xK_k), focusUp)
     , ((modm, xK_m), focusMaster)