emms-player-mpd: Make seek work correctly.

darcs-hash:20060525033120-1bfb2-00e9ea6d64e0c95fcac1105468024881d0a2faba.gz

1 files changed, 11 insertions, 6 deletions

diff --git a/emms-player-mpd.el b/emms-player-mpd.el
index 220f102..052be3f 100644
--- a/emms-player-mpd.el
+++ b/emms-player-mpd.el
@@ -900,13 +900,18 @@ from other functions."
   (interactive)
   (emms-player-mpd-send "pause" nil #'ignore))
 
-(defun emms-player-mpd-seek (sec)
-  "Seek backward or forward by SEC seconds, depending on sign of SEC."
+(defun emms-player-mpd-seek (amount)
+  "Seek backward or forward by AMOUNT seconds, depending on sign of AMOUNT."
   (interactive)
-  (emms-player-mpd-send (format "seek %s%d"
-                                (if (> sec 0) "+" "")
-                                sec)
-                        nil #'ignore))
+  (emms-player-mpd-get-status
+   amount
+   (lambda (amount info)
+     (let ((song (emms-player-mpd-get-current-song nil #'ignore info))
+           (secs (emms-player-mpd-get-playing-time nil #'ignore info)))
+       (when (and song secs)
+         (emms-player-mpd-send
+          (concat "seek " song " " (number-to-string (+ secs amount)))
+          nil #'ignore))))))
 
 (defun emms-player-mpd-next ()
   "Move forward by one track in MusicPD's internal playlist."