summaryrefslogtreecommitdiffstats
path: root/tv/5pkgs/xmonad-tv/Main.hs
diff options
context:
space:
mode:
authormakefu <github@syntax-fehler.de>2015-11-27 21:44:47 +0100
committermakefu <github@syntax-fehler.de>2015-11-27 21:44:47 +0100
commit74ebb5b01c85234f0f9e25428dc042b02caa6584 (patch)
tree7c0d4dad6ddcc300efc80c31fc33de03b6724183 /tv/5pkgs/xmonad-tv/Main.hs
parent42347456453b864d83d26ec952cfb770095d0a81 (diff)
parentd0913afc37d7da6c22d97b7da3c687d494567041 (diff)
Merge remote-tracking branch 'cd/master'
Diffstat (limited to 'tv/5pkgs/xmonad-tv/Main.hs')
-rw-r--r--tv/5pkgs/xmonad-tv/Main.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/tv/5pkgs/xmonad-tv/Main.hs b/tv/5pkgs/xmonad-tv/Main.hs
index 2258b34a6..6482d9cc8 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