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

[XMonad] Add pavucontrol volume scratchpad and binding

Browse Source
This commit is contained in:
Ivan Malison 2016-12-20 17:37:23 -08:00
parent 7a10d40ddc
commit c71ad074b4
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
dotfiles/xmonad/xmonad.hs
View File

@ -133,6 +133,7 @@ spotifySelector = className =? "Spotify"
emacsSelector = className =? "Emacs" emacsSelector = className =? "Emacs"
transmissionSelector = fmap (isPrefixOf "Transmission") title transmissionSelector = fmap (isPrefixOf "Transmission") title
hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title hangoutsSelector = chromeSelectorBase <&&> fmap isHangoutsTitle title
volumeSelector = className =? "Pavucontrol"
virtualClasses = virtualClasses =
[ (hangoutsSelector, "Hangouts") [ (hangoutsSelector, "Hangouts")
@ -148,6 +149,7 @@ chromeCommand = "google-chrome-stable"
emacsCommand = "emacsclient -c" emacsCommand = "emacsclient -c"
htopCommnad = "urxvt -e htop" htopCommnad = "urxvt -e htop"
transmissionCommand = "transmission-gtk" transmissionCommand = "transmission-gtk"
volumeCommand = "pavucontrol"
-- Startup hook -- Startup hook
@ -552,6 +554,7 @@ scratchpads =
[ NS "htop" htopCommnad (title =? "htop") nonFloating [ NS "htop" htopCommnad (title =? "htop") nonFloating
, NS "spotify" spotifyCommand spotifySelector nonFloating , NS "spotify" spotifyCommand spotifySelector nonFloating
, NS "hangouts" hangoutsCommand hangoutsSelector nonFloating , NS "hangouts" hangoutsCommand hangoutsSelector nonFloating
, NS "volume" volumeCommand volumeSelector nonFloating
] ]
doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads
@ -644,11 +647,14 @@ addKeys conf@XConfig {modMask = modm} =
, ((modalt, xK_m), doScratchpad "htop") , ((modalt, xK_m), doScratchpad "htop")
, ((modalt .|. controlMask, xK_s), doScratchpad "spotify") , ((modalt .|. controlMask, xK_s), doScratchpad "spotify")
, ((modalt .|. controlMask, xK_h), doScratchpad "hangouts") , ((modalt .|. controlMask, xK_h), doScratchpad "hangouts")
, ((modalt .|. controlMask, xK_v), doScratchpad "volume")
, ((modalt, xK_h), , ((modalt, xK_h),
myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector) myRaiseNextMaybe (spawn hangoutsCommand) hangoutsSelector)
, ((modalt, xK_s), , ((modalt, xK_s),
myRaiseNextMaybe (spawn spotifyCommand) spotifySelector) myRaiseNextMaybe (spawn spotifyCommand) spotifySelector)
, ((modalt, xK_v),
myRaiseNextMaybe (spawn volumeCommand) volumeSelector)
-- playerctl -- playerctl
, ((mod3Mask, xK_f), spawn "playerctl play-pause") , ((mod3Mask, xK_f), spawn "playerctl play-pause")
@ -672,6 +678,7 @@ addKeys conf@XConfig {modMask = modm} =
, (modalt, xK_c, spawn chromeCommand, chromeSelector) , (modalt, xK_c, spawn chromeCommand, chromeSelector)
-- , (modalt, xK_s, spawn spotifyCommand, spotifySelector) -- , (modalt, xK_s, spawn spotifyCommand, spotifySelector)
-- , (modalt, xK_h, spawn hangoutsCommand, hangoutsSelector) -- , (modalt, xK_h, spawn hangoutsCommand, hangoutsSelector)
-- , (modalt, xK_v, spawn volumeCommand, volumeSelector)
, (modalt, xK_t, spawn transmissionCommand, transmissionSelector) , (modalt, xK_t, spawn transmissionCommand, transmissionSelector)
] ++ ] ++
-- Replace original moving stuff around + greedy view bindings -- Replace original moving stuff around + greedy view bindings