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 qualified Data.Map as M
import Data.Maybe import Data.Maybe
import qualified Data.MultiMap as MM import qualified Data.MultiMap as MM
import Data.Char (toLower)
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
import Network.HostName import Network.HostName
import System.Directory import System.Directory
@ -134,9 +135,10 @@ visibleWindows = (\\) <$> (withWorkspaceR $ return . W.integrate' . W.stack) <*>
-- Selectors -- Selectors
isHangoutsTitle = isPrefixOf "Google Hangouts" 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" spotifySelector = className =? "Spotify"
emacsSelector = className =? "Emacs" emacsSelector = className =? "Emacs"
transmissionSelector = fmap (isPrefixOf "Transmission") title transmissionSelector = fmap (isPrefixOf "Transmission") title
@ -154,7 +156,7 @@ virtualClasses =
hangoutsCommand = "start_hangouts.sh" hangoutsCommand = "start_hangouts.sh"
spotifyCommand = "spotify" spotifyCommand = "spotify"
chromeCommand = "google-chrome-stable" chromeCommand = "google-chrome-unstable"
emacsCommand = "emacsclient -c" emacsCommand = "emacsclient -c"
htopCommand = "urxvt -e htop" htopCommand = "urxvt -e htop"
transmissionCommand = "transmission-gtk" transmissionCommand = "transmission-gtk"