From 08876c776d423cd0d5f651bdc054cb6d48aae7fc Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 31 May 2021 20:27:27 +0100
Subject: mpc seek

---
 lib/media/jao-mpc.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'lib/media')

diff --git a/lib/media/jao-mpc.el b/lib/media/jao-mpc.el
index 9004920..6531a8d 100644
--- a/lib/media/jao-mpc.el
+++ b/lib/media/jao-mpc.el
@@ -29,7 +29,7 @@
 (require 'jao-lyrics)
 
 (defvar jao-mpc--connection nil)
-(defvar-local jao-mpc--local-connecton nil)
+(defvar-local jao-mpc--local-connection nil)
 (defvar-local jao-mpc--local-port nil)
 
 (defvar jao-mpc-host "localhost")
@@ -154,6 +154,8 @@
   "Mode to display the list of playlist known by mpd."
   (read-only-mode -1)
   (delete-region (point-min) (point-max))
+  (setq-local jao-mpc--local-connecton jao-mpc--connection
+              jao-mpc--local-port jao-mpc-port)
   (insert (shell-command-to-string (format "mpc -p %s playlist" jao-mpc-port)))
   (goto-char (point-min))
   (display-line-numbers-mode)
@@ -211,6 +213,11 @@
   (interactive)
   (jao-mpc--send "previous" nil))
 
+;;;###autoload
+(defun jao-mpc-seek (delta)
+  (interactive "nDelta")
+  (jao-mpc--send (format "seekcur %s%s" (if (> delta 0) "+" "") delta) nil))
+
 ;;;###autoload
 (defun jao-mpc-clear ()
   (interactive)
@@ -232,8 +239,6 @@
   "Show current playlist."
   (interactive)
   (pop-to-buffer (jao-mpc--playlist-buffer))
-  (setq-local jao-mpc--local-connecton jao-mpc--connection
-              jao-mpc--local-port jao-mpc-port)
   (jao-mpc--playlist-goto-current))
 
 ;;;###autoload
-- 
cgit v1.2.3