From 1f66346b5f4f158ddfb8d5444b08a86e178a364b Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Tue, 8 Nov 2016 01:40:10 -0800
Subject: [PATCH] [XMonad] Minimize windows that are not of the focused
 window's class

---
 dotfiles/xmonad/xmonad.hs | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 2ac78a1a..2ecdebf8 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -187,6 +187,24 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
         XS.put $ ToggleFade (M.insert window (not existingValue) toggleMap)
         return ()
 
+-- Minimize not in class
+
+withWorkspace f = withWindowSet $ \ws ->
+  maybe (return ()) f (W.stack . W.workspace . W.current $ ws)
+
+minimizeOtherClassesInWorkspace =
+    withWorkspace (windowsWithUnfocusedClass >=> mapM_ minimizeWindow)
+
+windowsWithUnfocusedClass ws = windowsWithOtherClasses ws (W.focus ws)
+
+windowsWithOtherClasses workspace window = do
+  windowClass <- getClass window
+  let predicate = (/= windowClass)
+  filterM (\w -> predicate <$> getClass w) (W.integrate workspace)
+
+restoreAllMinimized =
+  withWorkspace $ mapM_ (sendMessage . RestoreMinimizedWin) . W.integrate
+
 -- Use greedyView to switch to the correct workspace, and then focus on the
 -- appropriate window within that workspace.
 greedyFocusWindow w ws = W.focusWindow w $ W.greedyView
@@ -219,12 +237,12 @@ addKeys conf@XConfig {modMask = modm} =
     , ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")
     , ((modm, xK_slash), sendMessage $ Toggle MIRROR)
     , ((modm, xK_m), withFocused minimizeWindow)
-    , ((modm .|. shiftMask, xK_m), sendMessage RestoreNextMinimizedWin)
+    , ((modm .|. shiftMask, xK_m), restoreAllMinimized)
     , ((modm, xK_backslash), toggleWS)
 
     -- Hyper bindings
     , ((mod3Mask, xK_1), toggleFadingForActiveWindow)
-    , ((mod3Mask, xK_e), moveTo Next EmptyWS )
+    , ((mod3Mask, xK_e), moveTo Next EmptyWS)
     , ((mod3Mask .|. shiftMask, xK_e), shiftToEmptyAndView)
     , ((mod3Mask, xK_v), spawn "copyq_rofi.sh")
     , ((mod3Mask, xK_p), spawn "system_password.sh")
@@ -233,6 +251,8 @@ addKeys conf@XConfig {modMask = modm} =
 
     -- ModAlt bindings
     , ((modalt, xK_w), spawn "rofi_wallpaper.sh")
+    , ((modalt, xK_space), minimizeOtherClassesInWorkspace)
+    , ((modalt, xK_Return), restoreAllMinimized)
 
     -- playerctl
     , ((mod3Mask, xK_f), spawn "playerctl play-pause")