From 15dda058d06200f69f32875f42750171b56a642d Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sun, 3 Apr 2022 12:12:11 +0100
Subject: vlc seek buttons

---
 lib/App/MediaControl/Web.rakumod |  1 +
 resources/index.html             | 28 ++++++++++++++++++++--------
 2 files changed, 21 insertions(+), 8 deletions(-)

diff --git a/lib/App/MediaControl/Web.rakumod b/lib/App/MediaControl/Web.rakumod
index 2e0fad0..ac65b5f 100644
--- a/lib/App/MediaControl/Web.rakumod
+++ b/lib/App/MediaControl/Web.rakumod
@@ -28,6 +28,7 @@ class App::MediaControl::Web {
             post -> 'stop' { await self.vlc.command('pl_stop') }
             post -> 'subs' { await self.vlc.command('key', val=>'subtitle-track') }
             post -> 'audio' { await self.vlc.command('key', val=>'audio-track') }
+            post -> 'seek', :$val { await self.vlc.command('seek',:$val) }
 
             get -> 'status' {
                 my $status = await self.vlc.status();
diff --git a/resources/index.html b/resources/index.html
index cafac48..8df3f4c 100644
--- a/resources/index.html
+++ b/resources/index.html
@@ -235,6 +235,11 @@
        margin: 0.1em;
      }
 
+     button.small {
+       border-radius: 0.2em;
+       font-size: 0.4em;
+     }
+
      .power { color: white }
      .power.on { background-color: green }
      .power.off { background-color: red }
@@ -327,20 +332,27 @@
         <summary>controls</summary>
         <table>
           <tr>
-            <td><button onclick="vlcCommand('play')" class="control">▶</button></td>
-            <td><button onclick="vlcCommand('pause')" class="control">⏸</button></td>
-            <td><button onclick="vlcCommand('stop')" class="control">⏹</button></td>
+            <td colspan="2"><button onclick="vlcCommand('play')" class="control">▶</button></td>
+            <td colspan="2"><button onclick="vlcCommand('pause')" class="control">⏸</button></td>
+            <td colspan="2"><button onclick="vlcCommand('stop')" class="control">⏹</button></td>
           </tr>
           <tr>
-            <td><button onclick="vlcCommand('subs')" class="control">🖹</button></td>
-            <td>&nbsp;</td>
-            <td><button onclick="vlcCommand('audio')" class="control">💬</button></td>
+            <td><button onclick="vlcCommand('seek',{val:'-60'})" class="control small">-1'</button></td>
+            <td><button onclick="vlcCommand('seek',{val:'-30'})" class="control small">-30"</button></td>
+            <td><button onclick="vlcCommand('seek',{val:'-15'})" class="control small">-15"</button></td>
+            <td><button onclick="vlcCommand('seek',{val:'+15'})" class="control small">+15"</button></td>
+            <td><button onclick="vlcCommand('seek',{val:'+30'})" class="control small">+30"</button></td>
+            <td><button onclick="vlcCommand('seek',{val:'+60'})" class="control small">+1'</button></td>
+          </tr>
+          <tr>
+            <td colspan="3"><button onclick="vlcCommand('subs')" class="control">🖹</button></td>
+            <td colspan="3"><button onclick="vlcCommand('audio')" class="control">💬</button></td>
           </tr>
           <tr>
-            <td colspan="3" id="playing-name"><p><span></span></p></td>
+            <td colspan="6" id="playing-name"><p><span></span></p></td>
           </tr>
           <tr>
-            <td colspan="3"><input type="range" id="current-pos"></td>
+            <td colspan="6"><input type="range" id="current-pos"></td>
           </tr>
         </table>
       </details>
-- 
cgit v1.2.3