[XMonad] Improve google-chrome raiseNextMaybe

This commit is contained in:
Ivan Malison 2016-10-24 20:59:10 -07:00
parent f30e12c917
commit 079a77c32c
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -129,9 +129,11 @@ addKeys conf@XConfig {modMask = modm} =
-- App shortcuts
, ((modalt, xK_s), raiseNextMaybe (spawn "spotify") (className =? "Spotify"))
, ((modalt, xK_e), raiseNextMaybe (spawn "emacsclient -c") (className =? "Emacs"))
, ((modalt, xK_h), raiseNextMaybe (spawn "google-chrome") (className =? "google-chrome"))
, ((modalt, xK_c), raiseNextMaybe (spawn "google-chrome")
(className =? "google-chrome" <&&>
fmap (not . isInfixOf "Hangouts") title))
, ((modalt, xK_h), raiseNextMaybe (spawn "cool")
(className =? "google-chrome"))
(className =? "google-chrome" <&&> fmap (isInfixOf "Hangouts") title))
-- Hyper bindings
, ((mod3Mask, xK_1), setWorkspaceNames)