[elpa] externals/slime-volleyball b322492 13/27: Support music repetition

[Thomas Fitzsimmons]

branch: externals/slime-volleyball
commit b322492df5195e7edcfdf3e8fb9f58da43aaebbe
Author: Thomas Fitzsimmons <fitzsim@fitzsim.org>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    Support music repetition
---
 slime-volleyball.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/slime-volleyball.el b/slime-volleyball.el
index 3c8ce51..822762f 100644
--- a/slime-volleyball.el
+++ b/slime-volleyball.el
@@ -1499,7 +1499,7 @@
     (define-key slime-volleyball-mode-map (kbd "p") nil)
     (setq slime-volleyball-play-ending t)
     (when slime-volleyball-enable-sound
-      (slime-volleyball-play-music "end"))))
+      (slime-volleyball-play-music "end" t))))
 
 (defun slime-volleyball-say-game-over ()
   (setq slime-volleyball-unpause-function
@@ -1681,7 +1681,7 @@
     (when (eq (elt timer 5) timer-function)
       (cancel-timer timer))))
 
-(defun slime-volleyball-play-music (name)
+(defun slime-volleyball-play-music (name repeat)
   ;; Ignore errors in case EMMS doesn't have ogg support.
   (ignore-errors
     (when slime-volleyball-enable-sound
@@ -1700,6 +1700,9 @@
           (kill-buffer))
         ;; Suppress message "EMMS: All track information loaded.".
         (let ((emms-info-asynchronously nil))
+          ;; Doing this dynamically doesn't work for some reason, but
+          ;; repetition is required so messy measures must be taken.
+          (setq emms-repeat-track repeat)
           (emms-play-file temp-file))))))
 
 (defun slime-volleyball-introduce-opponent ()
@@ -1731,7 +1734,7 @@
   (slime-volleyball-add-timer 0.03 'slime-volleyball-render)
   (slime-volleyball-add-timer 0.5 'slime-volleyball-eval-god-mode-variables)
   (sit-for 0.1)
-  (slime-volleyball-play-music "start")
+  (slime-volleyball-play-music "start" nil)
   (sleep-for 4)
   (when slime-volleyball-enable-sound
     (emms-stop))