wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests 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 -- Selectors
isHangoutsTitle = isPrefixOf "Google Hangouts" isHangoutsTitle = isPrefixOf "Google Hangouts"
chromeSelectorBase = className =? "Google-chrome" chromeSelectorBase = className =? "Google-chrome"
chromeSelector = chromeSelectorBase <&&>
fmap (not . isHangoutsTitle) title chromeSelector = chromeSelectorBase <&&> fmap (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
hangoutsSelector = chromeSelectorBase <&&> hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title
fmap isHangoutsTitle title
virtualClasses = [ (hangoutsSelector, "Hangouts") virtualClasses = [ (hangoutsSelector, "Hangouts")
, (chromeSelector, "Chrome") , (chromeSelector, "Chrome")