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

[XMonad] Update chrome and transmission virtual classes

Browse Source
This commit is contained in:
Ivan Malison 2016-10-31 17:40:33 -07:00
parent 3906b5ab62
commit 82c888c808
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
dotfiles/xmonad/xmonad.hs
View File

@ -54,14 +54,19 @@ main = xmonad $ def
isHangoutsTitle = isPrefixOf "Google Hangouts"
chromeSelector = className =? "google-chrome" <&&>
chromeSelectorBase = className =? "Google-chrome"
chromeSelector = chromeSelectorBase <&&>
fmap (not . isHangoutsTitle) title
spotifySelector = className =? "Spotify"
emacsSelector = className =? "Emacs"
hangoutsSelector = className =? "google-chrome" <&&>
transmissionSelector = fmap (isPrefixOf "Transmission") title
hangoutsSelector = chromeSelectorBase <&&>
fmap isHangoutsTitle title
virtualClasses = [(hangoutsSelector, "Hangouts")]
virtualClasses = [ (hangoutsSelector, "Hangouts")
, (chromeSelector, "Chrome")
, (transmissionSelector, "Transmission")
]
-- Startup
@ -247,6 +252,7 @@ addKeys conf@XConfig {modMask = modm} =
, (modalt, xK_e, spawn "emacsclient -c", emacsSelector)
, (modalt, xK_c, spawn "google-chrome-stable", chromeSelector)
, (modalt, xK_h, spawn "cool", hangoutsSelector)
, (modalt, xK_t, spawn "transmission", transmissionSelector)
] ++
-- Replace original moving stuff around + greedy view bindings
[((additionalMask .|. modm, key), windows $ function workspace)