colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Support use of unstable and stable chrome

Browse Source
This commit is contained in:
Ivan Malison 2017-02-20 17:10:27 -08:00
parent 556c04f201
commit 782a709728
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

@ -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"