[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/emms c86ede13e8: * emms-listenbrainz-scrobbler.el: allo
From: |
ELPA Syncer |
Subject: |
[elpa] externals/emms c86ede13e8: * emms-listenbrainz-scrobbler.el: allow nil info-album |
Date: |
Sun, 12 May 2024 15:57:50 -0400 (EDT) |
branch: externals/emms
commit c86ede13e80ad573f52e46de54fd24a97e2faa88
Author: Fran Burstall <fran.burstall@gmail.com>
Commit: Fran Burstall <fran.burstall@gmail.com>
* emms-listenbrainz-scrobbler.el: allow nil info-album
---
emms-listenbrainz-scrobbler.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/emms-listenbrainz-scrobbler.el b/emms-listenbrainz-scrobbler.el
index 8cd26b6604..7942e825d7 100644
--- a/emms-listenbrainz-scrobbler.el
+++ b/emms-listenbrainz-scrobbler.el
@@ -94,9 +94,9 @@ Note that the preferred way of authenticating is using
authinfo.")
(defun emms-listenbrainz-scrobbler-make-query (track &optional playing-now)
"Collect the data from TRACK. No timestamp when PLAYING-NOW is non-nil."
- (let ((artist (substring-no-properties (emms-track-get track 'info-artist)))
- (title (substring-no-properties (emms-track-get track 'info-title)))
- (album (substring-no-properties (emms-track-get track 'info-album)))
+ (let ((artist (emms-track-get track 'info-artist))
+ (title (emms-track-get track 'info-title))
+ (album (emms-track-get track 'info-album))
(track-number (emms-track-get track 'info-tracknumber))
;; (musicbrainz-id "")
(track-length (emms-track-get track
@@ -104,9 +104,9 @@ Note that the preferred way of authenticating is using
authinfo.")
payload metadata extra-data data)
(unless (and title artist) (error "Track title and artist must be known"))
;; assemble metadata
- (push (cons "artist_name" artist) metadata)
- (push (cons "track_name" title) metadata)
- (when album (push (cons "release_name" album) metadata))
+ (push (cons "artist_name" (substring-no-properties artist)) metadata)
+ (push (cons "track_name" (substring-no-properties title)) metadata)
+ (when album (push (cons "release_name" (substring-no-properties album))
metadata))
;; additional data
(when track-number (push (cons "tracknumber" (string-to-number
track-number))
extra-data))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/emms c86ede13e8: * emms-listenbrainz-scrobbler.el: allow nil info-album,
ELPA Syncer <=