From d0913afc37d7da6c22d97b7da3c687d494567041 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 25 Nov 2015 01:51:35 +0100
Subject: tv: UNIX domain socket based pulseaudio with XMonad controls

---
 tv/5pkgs/xmonad-tv/Main.hs      | 4 ++++
 tv/5pkgs/xmonad-tv/xmonad.cabal | 1 +
 2 files changed, 5 insertions(+)

(limited to 'tv/5pkgs')

diff --git a/tv/5pkgs/xmonad-tv/Main.hs b/tv/5pkgs/xmonad-tv/Main.hs
index 2258b34a..6482d9cc 100644
--- a/tv/5pkgs/xmonad-tv/Main.hs
+++ b/tv/5pkgs/xmonad-tv/Main.hs
@@ -7,6 +7,7 @@
 module Main where
 
 import Control.Exception
+import Graphics.X11.ExtraTypes.XF86
 import Text.Read (readEither)
 import XMonad
 import System.IO (hPutStrLn, stderr)
@@ -187,6 +188,9 @@ myKeys conf = Map.fromList $
     --,  (_4  , xK_v      ) & \k -> (k, gridselectWorkspace wsGSConfig { gs_navigate = makeGSNav k } W.view)
     --,  (_4S , xK_v      ) & \k -> (k, gridselectWorkspace wsGSConfig { gs_navigate = makeGSNav k } W.shift)
     --,  (_4  , xK_b      ) & \k -> (k, goToSelected        wGSConfig  { gs_navigate = makeGSNav k })
+    , ((noModMask, xF86XK_AudioLowerVolume), spawn "amixer sset Master 5%-")
+    , ((noModMask, xF86XK_AudioRaiseVolume), spawn "amixer sset Master 5%+")
+    , ((noModMask, xF86XK_AudioMute), spawn "amixer sset Master toggle")
     ]
     where
     _4 = mod4Mask
diff --git a/tv/5pkgs/xmonad-tv/xmonad.cabal b/tv/5pkgs/xmonad-tv/xmonad.cabal
index 2246524f..f9ea4dd7 100644
--- a/tv/5pkgs/xmonad-tv/xmonad.cabal
+++ b/tv/5pkgs/xmonad-tv/xmonad.cabal
@@ -10,6 +10,7 @@ Executable xmonad
     base,
     containers,
     unix,
+    X11,
     xmonad,
     xmonad-contrib,
     xmonad-stockholm
-- 
cgit v1.2.3