summaryrefslogtreecommitdiffstats
path: root/tv/5pkgs
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2018-11-30 16:17:32 +0100
committertv <tv@krebsco.de>2018-11-30 16:17:32 +0100
commit5d0bd94dd9002a0c65bdc76eedde15a07937087e (patch)
tree1ce81d22809ad08482280f3844d781c42fca80df /tv/5pkgs
parentbf9f3b6553ca4d3b93e566256d8c8acd2ef20d57 (diff)
tv xmonad: amixer -> pactl
Diffstat (limited to 'tv/5pkgs')
-rw-r--r--tv/5pkgs/haskell/xmonad-tv/src/Paths.hs6
-rw-r--r--tv/5pkgs/haskell/xmonad-tv/src/main.hs12
2 files changed, 11 insertions, 7 deletions
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs b/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs
index 24a809b..e12c25b 100644
--- a/tv/5pkgs/haskell/xmonad-tv/src/Paths.hs
+++ b/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"
diff --git a/tv/5pkgs/haskell/xmonad-tv/src/main.hs b/tv/5pkgs/haskell/xmonad-tv/src/main.hs
index dd76fbf..c96a853 100644
--- a/tv/5pkgs/haskell/xmonad-tv/src/main.hs
+++ b/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%+"])
- , ((noModMask, xF86XK_AudioMute), amixer ["sset", "Master", "toggle"])
+
+ , ((0, xF86XK_AudioLowerVolume), audioLowerVolume)
+ , ((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