Add some support of the XF86 keys.

2 files changed, 27 insertions, 1 deletions

diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs
index 439986c..0dd8760 100644
--- a/src/Internal/Keys.hs
+++ b/src/Internal/Keys.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE RankNTypes #-}
 module Internal.Keys (applyKeys) where
 
+import Graphics.X11.ExtraTypes.XF86;
 import Internal.KeysM
 import Internal.SwapMaster (swapMaster)
 import XMonad.Hooks.ManageDocks
@@ -207,10 +208,11 @@ keymap = runKeys $ do
 
   bind xK_z $ do
     justMod $ subkeys $ do
+
+      -- Double-tap Z to toggle zoom.
       bind xK_z $ do
         noMod -|- justMod $ sendMessage ToggleZoom
 
-
       -- Z is reserved to create sub keybindings to do various things.
       -- I don't really use these at the moment.
       bind xK_h $ do
@@ -223,6 +225,29 @@ keymap = runKeys $ do
     -- modifier.
     shiftMod $ sendMessage ToggleZoom
 
+  bind xF86XK_AudioLowerVolume $ do
+    noMod $ spawn "pactl set-sink-volume @DEFAULT_SINK@ -1%"
+    justMod $ spawn "spotify-control prev"
+
+  bind xF86XK_AudioRaiseVolume $ do
+    noMod $ spawn "pactl set-sink-volume @DEFAULT_SINK@ +1%"
+    justMod $ spawn "spotify-control next"
+
+  bind xF86XK_AudioMute $ do
+    noMod $ spawn "pactl set-sink-mute @DEFAULT_SINK@ toggle"
+
+  bind xF86XK_AudioPlay $ do
+    noMod $ spawn "spotify-control play"
+
+  bind xF86XK_AudioNext $ do
+    noMod $ spawn "spotify-control next"
+
+  bind xF86XK_AudioPrev $ do
+    noMod $ spawn "spotify-control prev"
+
+  bind xF86XK_AudioPrev $ do
+    noMod $ spawn "spotify-control prev"
+
 mouseMap :: ButtonsMap l
 mouseMap = runButtons $ do
   bind button1 $ do
diff --git a/src/Internal/KeysM.hs b/src/Internal/KeysM.hs
index 0d7adce..f834796 100644
--- a/src/Internal/KeysM.hs
+++ b/src/Internal/KeysM.hs
@@ -412,3 +412,4 @@ mapAlpha km fn =
   , (xK_y, 'y')
   , (xK_z, 'z')
   ]
+