From 782a709728c2a9d721afaccc9ba8daea12a6fed2 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Mon, 20 Feb 2017 17:10:27 -0800
Subject: [PATCH] [XMonad] Support use of unstable and stable chrome

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

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 019ec2d9..523ea67b 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -12,6 +12,7 @@ import           Data.List
 import qualified Data.Map as M
 import           Data.Maybe
 import qualified Data.MultiMap as MM
+import           Data.Char (toLower)
 import           Graphics.X11.ExtraTypes.XF86
 import           Network.HostName
 import           System.Directory
@@ -134,9 +135,10 @@ visibleWindows = (\\) <$> (withWorkspaceR $ return . W.integrate' . W.stack) <*>
 -- Selectors
 
 isHangoutsTitle = isPrefixOf "Google Hangouts"
-chromeSelectorBase = className =? "Google-chrome"
+isChromeClass = isInfixOf "chrome"
+chromeSelectorBase = isChromeClass <$> className
 
-chromeSelector = chromeSelectorBase <&&> fmap (not . isHangoutsTitle) title
+chromeSelector = chromeSelectorBase <&&> (not . isHangoutsTitle) <$> title
 spotifySelector = className =? "Spotify"
 emacsSelector = className =? "Emacs"
 transmissionSelector = fmap (isPrefixOf "Transmission") title
@@ -154,7 +156,7 @@ virtualClasses =
 
 hangoutsCommand = "start_hangouts.sh"
 spotifyCommand = "spotify"
-chromeCommand = "google-chrome-stable"
+chromeCommand = "google-chrome-unstable"
 emacsCommand = "emacsclient -c"
 htopCommand = "urxvt -e htop"
 transmissionCommand = "transmission-gtk"