tv xmonad: amixer -> pactl

tv/2configs/xserver/default.nix

@@ -96,8 +96,8 @@ in {
       ]);
     };
     path = [
-      pkgs.alsaUtils
       pkgs.fzmenu
+      pkgs.pulseaudioLight.out
       pkgs.rxvt_unicode
     ];
     serviceConfig = {

tv/5pkgs/haskell/xmonad-tv/src/Paths.hs

@@ -3,12 +3,12 @@ module Paths where
 import Helpers.Path
 
 
-amixer :: FilePath
-amixer = findExecutable "amixer"
-
 otpmenu :: FilePath
 otpmenu = findExecutable "otpmenu"
 
+pactl :: FilePath
+pactl = findExecutable "pactl"
+
 passmenu :: FilePath
 passmenu = findExecutable "passmenu"
 

tv/5pkgs/haskell/xmonad-tv/src/main.hs

@@ -147,9 +147,10 @@ myKeys conf = Map.fromList $
     , ((_4  , xK_Delete ), removeEmptyWorkspace)
 
     , ((_4  , xK_Return ), toggleWS)
-    , ((noModMask, xF86XK_AudioLowerVolume), amixer ["sset", "Master", "5%-"])
+
-    , ((noModMask, xF86XK_AudioRaiseVolume), amixer ["sset", "Master", "5%+"])
+    , ((0, xF86XK_AudioLowerVolume), audioLowerVolume)
-    , ((noModMask, xF86XK_AudioMute), amixer ["sset", "Master", "toggle"])
+    , ((0, xF86XK_AudioRaiseVolume), audioRaiseVolume)
+    , ((0, xF86XK_AudioMute), audioMute)
     ]
     where
     _4 = mod4Mask
@@ -162,7 +163,10 @@ myKeys conf = Map.fromList $
     _4CM = _4 .|. _C .|. _M
     _4SM = _4 .|. _S .|. _M
 
-    amixer args = forkFile Paths.amixer args Nothing
+    pactl args = forkFile Paths.pactl args Nothing
+    audioLowerVolume = pactl ["--", "set-sink-volume", "@DEFAULT_SINK@", "-5%"]
+    audioRaiseVolume = pactl ["--", "set-sink-volume", "@DEFAULT_SINK@", "+5%"]
+    audioMute = pactl ["--", "set-sink-mute", "@DEFAULT_SINK@", "toggle"]
 
 
 pagerConfig :: PagerConfig