[elpa] externals/listen a4ef3e676e 3/4: Fix: (listen-queue-list) Currently playing column

[ELPA Syncer]

branch: externals/listen
commit a4ef3e676ee6ce47f04abffee2e2d3223de2c663
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (listen-queue-list) Currently playing column
    
    It was showing "nil" without a current player.
---
 README.org      | 3 ++-
 docs/README.org | 3 ++-
 listen-queue.el | 7 ++++---
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index e46b4f7aed..d7ee63dc3e 100644
--- a/README.org
+++ b/README.org
@@ -225,7 +225,8 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 
 ** v0.9-pre
 
-Nothing new yet.
+*Fixes*
+- Currently playing column in queue list buffer.
 
 ** v0.8
 
diff --git a/docs/README.org b/docs/README.org
index 7f2ea5a2e0..e52b14f182 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -237,7 +237,8 @@ The ~listen-mode~ minor mode runs a timer which plays the 
next track in the curr
 
 ** v0.9-pre
 
-Nothing new yet.
+*Fixes*
++ Currently playing column in queue list buffer.
 
 ** v0.8
 
diff --git a/listen-queue.el b/listen-queue.el
index 4cb69c5e06..4ddaa3e9c4 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -918,9 +918,10 @@ Delay according to `listen-queue-delay-time-range', which 
see."
          :columns
          (list (list :name "▶" :primary 'descend
                      :getter (lambda (queue _table)
-                               (when-let ((player listen-player))
-                                 (if (eq queue (map-elt (listen-player-etc 
player) :queue))
-                                     "▶" " "))))
+                               (if-let ((player listen-player)
+                                        ((eq queue (alist-get :queue 
(listen-player-etc player)))))
+                                   "▶"
+                                 " ")))
                (list :name "Name" :primary 'ascend
                      :getter (lambda (queue _table)
                                (listen-queue-name queue)))