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

[XMonad] Add support for actual media keys

Browse Source
This commit is contained in:
Ivan Malison 2016-10-05 03:23:40 -07:00
parent 4111fda801
commit 83ef568592
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
dotfiles/xmonad/xmonad.hs
View File

@ -1,3 +1,4 @@
import Graphics.X11.ExtraTypes.XF86
import System.Taffybar.Hooks.PagerHints (pagerHints) import System.Taffybar.Hooks.PagerHints (pagerHints)
import XMonad hiding ( (|||) ) import XMonad hiding ( (|||) )
@ -54,11 +55,19 @@ addKeys conf@XConfig {modMask = modm} =
, ((mod3Mask, xK_v), spawn "copyq_rofi.sh") , ((mod3Mask, xK_v), spawn "copyq_rofi.sh")
-- playerctl -- playerctl
, ((mod3Mask, xK_a), spawn "playerctl previous") , ((mod3Mask, xK_f), spawn "playerctl play-pause")
, ((0, xF86XK_AudioPause), spawn "playerctl play-pause")
, ((mod3Mask, xK_d), spawn "playerctl next") , ((mod3Mask, xK_d), spawn "playerctl next")
, ((0, xF86XK_AudioNext), spawn "playerctl next")
, ((mod3Mask, xK_a), spawn "playerctl previous")
, ((0, xF86XK_AudioPrev), spawn "playerctl previous")
-- volume control
, ((0, xF86XK_AudioRaiseVolume), spawn "pactl set-sink-volume 0 +10%")
, ((0, xF86XK_AudioLowerVolume), spawn "pactl set-sink-volume 0 -10%")
, ((0, xF86XK_AudioMute), spawn "pactl set-sink-mute 0 toggle")
, ((mod3Mask, xK_w), spawn "pactl set-sink-volume 0 +10%") , ((mod3Mask, xK_w), spawn "pactl set-sink-volume 0 +10%")
, ((mod3Mask, xK_s), spawn "pactl set-sink-volume 0 -10%") , ((mod3Mask, xK_s), spawn "pactl set-sink-volume 0 -10%")
, ((mod3Mask, xK_f), spawn "playerctl play-pause")
] ++ ] ++
-- Replace original moving stuff around + greedy view bindings -- Replace original moving stuff around + greedy view bindings
[((additionalMask .|. modm, key), windows $ function workspace) [((additionalMask .|. modm, key), windows $ function workspace)