From eefcda079f253ed0e154254766a8e0407e318000 Mon Sep 17 00:00:00 2001
From: Damien Elmes <emms@repose.cx>
Date: Fri, 16 Jun 2006 01:13:00 +0000
Subject: mpg321-remote: fix bug related to the player stopping

darcs-hash:20060616011318-4e3e3-47d8fbfd25b67617a99f9116af74373ca69d63c1.gz
---
 emms-player-mpg321-remote.el | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/emms-player-mpg321-remote.el b/emms-player-mpg321-remote.el
index 562d769..4a95494 100644
--- a/emms-player-mpg321-remote.el
+++ b/emms-player-mpg321-remote.el
@@ -74,7 +74,7 @@ For example: (list \"-o\" \"alsa\")"
 (defvar emms-player-mpg321-remote-process-name "emms-player-mpg321-remote-proc"
   "The name of the mpg321 remote player process")
 
-(defvar emms-player-mpg321-remote-mask-stop-message nil
+(defvar emms-player-mpg321-remote-stopped-p nil
   "True if we should ignore the next stop message.")
 
 (defmacro emms-player-mpg321-remote-add (cmd func)
@@ -147,10 +147,7 @@ For example: (list \"-o\" \"alsa\")"
      ;; stop notice
      ((and (string= cmd "@P")
            (string= (cadr data) "0"))
-      (if emms-player-mpg321-remote-mask-stop-message
-          (setq emms-player-mpg321-remote-mask-stop-message
-                nil)
-        (emms-player-stopped)))
+      (emms-player-mpg321-remote-notify-emms))
      ;; frame notice
      ((string= cmd "@F")
       ;; even though a timer is constantly updating this variable,
@@ -165,11 +162,23 @@ If the remote process is not running, launch it."
     (emms-player-mpg321-remote-start-process))
   (emms-player-mpg321-remote-play-track track))
 
+(defun emms-player-mpg321-remote-notify-emms (&optional user-action)
+  "Tell emms that the current song has finished.
+If USER-ACTION, set `emms-player-mpg321-remote-stopped-p' so that we
+ignore the next message from mpg321."
+  (if user-action
+      (let ((emms-player-stopped-p t))
+        ;; so we ignore the next stop message
+        (setq emms-player-mpg321-remote-stopped-p t)
+        (emms-player-stopped))
+    ;; not a user action
+    (if emms-player-mpg321-remote-stopped-p
+        (setq emms-player-mpg321-remote-stopped-p nil)
+      (emms-player-stopped))))
+
 (defun emms-player-mpg321-remote-stop-playing ()
   "Stop the current song playing."
-  ;; we don't want to tell emms we've stopped playing, or it'll start
-  ;; playing the next track
-  (setq emms-player-mpg321-remote-mask-stop-message t)
+  (emms-player-mpg321-remote-notify-emms t)
   (emms-player-mpg321-remote-send "stop"))
 
 (defun emms-player-mpg321-remote-play-track (track)
-- 
cgit v1.2.3