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

[XMonad] Tweak whitespace of selectors

Browse Source
This commit is contained in:
Ivan Malison 2016-11-21 15:52:23 -08:00
parent 392a5053fb
commit 3b473eb0d2
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/xmonad/xmonad.hs
View File

@ -61,15 +61,13 @@ main = xmonad $ def
-- Selectors
isHangoutsTitle = isPrefixOf "Google Hangouts"
chromeSelectorBase = className =? "Google-chrome"
chromeSelector = chromeSelectorBase <&&>
fmap (not . isHangoutsTitle) title
chromeSelector = chromeSelectorBase <&&> fmap (not . isHangoutsTitle) title
spotifySelector = className =? "Spotify"
emacsSelector = className =? "Emacs"
transmissionSelector = fmap (isPrefixOf "Transmission") title
hangoutsSelector = chromeSelectorBase <&&>
fmap isHangoutsTitle title
hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title
virtualClasses = [ (hangoutsSelector, "Hangouts")
, (chromeSelector, "Chrome")