Add ability to seek media with shift+next/prev.

1 files changed, 18 insertions, 2 deletions

diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs
index 5c6866e..c34e0ee 100644
--- a/src/Rahm/Desktop/Keys.hs
+++ b/src/Rahm/Desktop/Keys.hs
@@ -179,6 +179,10 @@ mediaPrev = spawnX "media-control prev"
 
 mediaNext = spawnX "media-control next"
 
+mediaSeekB = spawnX "media-control seekb"
+
+mediaSeekF = spawnX "media-control seekf"
+
 decreaseVolumeDoc = doc "Decrease volume" decreaseVolume
 
 increaseVolumeDoc = doc "Increase volume" increaseVolume
@@ -189,6 +193,10 @@ mediaPrevDoc = doc "Previous media" mediaPrev
 
 mediaNextDoc = doc "Next media" mediaNext
 
+mediaSeekBDoc = doc "Seek back 3 seconds" mediaSeekB
+
+mediaSeekFDoc = doc "Seek forward 12 seconds" mediaSeekF
+
 button6 :: Button
 button6 = 6
 
@@ -310,9 +318,11 @@ keymap = runKeys $ do
 
   bind xK_F11 $ do
     justMod mediaPrevDoc
+    shiftMod mediaSeekBDoc
 
   bind xK_F12 $ do
     justMod mediaNextDoc
+    shiftMod mediaSeekFDoc
 
   bind xK_Return $ do
     justMod swapMaster
@@ -716,9 +726,13 @@ keymap = runKeys $ do
 
           -- Z is reserved to create sub keybindings to do various things.
           -- I don't really use these at the moment.
-          bind xK_h $ noMod mediaPrevDoc
+          bind xK_h $ do
+            noMod mediaPrevDoc
+            rawMask shiftMask mediaSeekBDoc
           bind xK_j $ noMod playPauseDoc
-          bind xK_l $ noMod mediaNextDoc
+          bind xK_l $ do
+            noMod mediaNextDoc
+            rawMask shiftMask mediaSeekFDoc
 
     -- Centers the current focused window. i.e. toggles the Zoom layout
     -- modifier.
@@ -767,9 +781,11 @@ keymap = runKeys $ do
 
   bind xF86XK_AudioNext $ do
     noMod mediaNextDoc
+    rawMask shiftMask mediaSeekFDoc
 
   bind xF86XK_AudioPrev $ do
     noMod mediaPrevDoc
+    rawMask shiftMask mediaSeekBDoc
 
   bind xF86XK_AudioPrev $ do
     noMod mediaPrevDoc