[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/slime-volleyball b322492 13/27: Support music repetitio
From: |
Thomas Fitzsimmons |
Subject: |
[elpa] externals/slime-volleyball b322492 13/27: Support music repetition |
Date: |
Sun, 22 Nov 2020 18:05:17 -0500 (EST) |
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))
- [elpa] externals/slime-volleyball 0f3d244 02/27: Update README.md, (continued)
- [elpa] externals/slime-volleyball 0f3d244 02/27: Update README.md, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 57e0119 01/27: Initial commit, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 8832b89 05/27: Add installation instructions to README.md, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 15c8498 03/27: Add game files, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 30feb6a 15/27: Update README.md, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 245e99e 22/27: Add (require 'cl) fallback for Emacs versions < 24.3, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 82bc57f 08/27: README.md: Fix Markdown spacing, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball d8b8887 09/27: README.md: Fix wording, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 00310a1 11/27: Add beach mode, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 42ff46e 12/27: Ignore EMMS errors, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball b322492 13/27: Support music repetition,
Thomas Fitzsimmons <=
- [elpa] externals/slime-volleyball d767400 14/27: Delete trailing whitespace, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 6f42cf7 19/27: Fail when svg is not supported, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 259e6cd 23/27: README.md: Add a screenshot, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball ac1b98d 26/27: fix minor problems in SVG syntax., Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball d046322 10/27: Load other files relative to slime-volleyball-init's symbol file, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball c6522af 16/27: Some minor doc changes., Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball c7d895c 17/27: Add autoload cookie., Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball c080ae6 21/27: README.md: Mention librsvg requirement, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball f550da8 20/27: Fix some formatting issues, Thomas Fitzsimmons, 2020/11/22
- [elpa] externals/slime-volleyball 6e694b0 24/27: Mention SVG in description, Thomas Fitzsimmons, 2020/11/22