branch: externals/listen
commit 768e75df7ce1dc34cec62aca3660767b501a526f
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (listen-queue-list) Indication of current queue
---
README.org | 1 +
docs/README.org | 1 +
listen-queue.el | 5 +++--
3 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/README.org b/README.org
index b6016b9fc0..fe6c28eea6 100644
--- a/README.org
+++ b/README.org
@@ -231,6 +231,7 @@ The ~listen-mode~ minor mode runs a timer which plays the
next track in the curr
*Fixes*
- Command ~listen-queue-add-from-mpd~.
+- Indication of currently playing queue in queue list.
** v0.7
diff --git a/docs/README.org b/docs/README.org
index 127e9d45c6..0e63ca81d2 100644
--- a/docs/README.org
+++ b/docs/README.org
@@ -243,6 +243,7 @@ The ~listen-mode~ minor mode runs a timer which plays the
next track in the curr
*Fixes*
+ Command ~listen-queue-add-from-mpd~.
++ Indication of currently playing queue in queue list.
** v0.7
diff --git a/listen-queue.el b/listen-queue.el
index af71471755..0695d9dc50 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -907,7 +907,7 @@ Delay according to `listen-queue-delay-time-range', which
see."
:columns
(list (list :name "▶" :primary 'descend
:getter (lambda (queue _table)
- (when-let ((player (listen-current-player)))
+ (when-let ((player listen-player))
(if (eq queue (map-elt (listen-player-etc
player) :queue))
"▶" " "))))
(list :name "Name" :primary 'ascend
@@ -942,7 +942,8 @@ Delay according to `listen-queue-delay-time-range', which
see."
;; "!" (lambda (_) (call-interactively
#'listen-queue-shell-command))
)))
(goto-char (point-min))
- (hl-line-mode 1))
+ (hl-line-mode 1)
+ (listen-queue--highlight-current))
;; NOTE: We pop to the buffer outside of `with-current-buffer' so
;; `listen-queue--bookmark-handler' works correctly.
(pop-to-buffer buffer)))
