branch: externals/listen
commit 3c2b5e7b5f03c2b7fb1cba6ea42a89f07fb147b5
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (listen-queue-track) Also set rating and metadata slots
---
listen-queue.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/listen-queue.el b/listen-queue.el
index 1a4cb5a3aa..8a03c8ca75 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -530,10 +530,10 @@ buffer, if any)."
:number (map-elt metadata "tracknumber")
:date (map-elt metadata "date")
:genre (map-elt metadata "genre")
- ;; TODO: Since we're storing all of the metadata in the etc slot,
- ;; consider whether to consolidate there or add slots for,
- ;; e.g. rating.
- :etc metadata)))
+ :rating (map-elt metadata "fmps_rating")
+ ;; TODO: Stop also storing metadata in etc slot.
+ :etc metadata
+ :metadata metadata)))
(defun listen-queue-tracks-for (filenames)
"Return tracks for FILENAMES.
