From 2faab19c2815fec605a8880455f1e4cb99808879 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Sun, 3 Jun 2018 14:28:15 -0700
Subject: [PATCH] [XMonad] Don't do weird chrome kill by default

---
 dotfiles/config/xmonad/xmonad.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/dotfiles/config/xmonad/xmonad.hs b/dotfiles/config/xmonad/xmonad.hs
index faca85c5..f41efd79 100644
--- a/dotfiles/config/xmonad/xmonad.hs
+++ b/dotfiles/config/xmonad/xmonad.hs
@@ -436,7 +436,8 @@ chromeTabAction doSplit action selected =
 -- done with the existing window bringer interface
 myWindowAct c@WindowBringerConfig {menuCommand = cmd, menuArgs = args} action = do
   visible <- visibleWindows
-  ws <- windowMap' c {windowFilter = not . flip elem visible}
+  -- Uncomment filter to remove windows that are visible
+  ws <- windowMap' c -- {windowFilter = not . flip elem visible}
     -- chromeTabs <- liftIO getChromeTabInfo
   let options = M.union (M.map Left ws) (M.map Right M.empty)
   selection <- DM.menuMapArgs cmd args options
@@ -704,7 +705,7 @@ getWindowWS a = withWindowSet $ \ws -> return $ listToMaybe
 replaceWindow original replacement =
   W.delete original . swapWindows original replacement
 
-myKill =
+chromeReplaceKill =
   withFocused $ \w -> do
     vClass <- getClass w
     if vClass == "Chrome" then
@@ -906,7 +907,7 @@ addKeys conf@XConfig { modMask = modm } =
     , ((modalt, xK_Return), deactivateFullAnd restoreAllMinimized)
     , ((modm .|. controlMask, xK_t),
        setReplaceTarget >> spawn "chromix-too open chrome://newtab")
-    , ((modm .|. shiftMask, xK_c), myKill)
+    , ((mod .|. controlMask, xK_c), chromeReplaceKill)
     , ((hyper, xK_g), gatherThisClass)
 
     -- Directional navigation