branch: externals/listen
commit 202a708f524d7cc227f9811c3809ed0069f73811
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Add: (listen-library-view-track) Bound to "m" in library buffer
---
listen-library.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/listen-library.el b/listen-library.el
index ee143038b7..19df10bc4d 100644
--- a/listen-library.el
+++ b/listen-library.el
@@ -105,6 +105,7 @@
"a" #'listen-library-add-tracks
"g" #'listen-library-revert
"j" #'listen-library-jump
+ "m" #'listen-library-view-track
"RET" #'listen-library-play-or-add)
(define-derived-mode listen-library-mode magit-section-mode "Listen-Library"
@@ -174,6 +175,12 @@ prompt for a QUEUE to add them to."
(list (car (listen-library--selected-tracks))))
(listen-jump track))
+(defun listen-library-view-track (track)
+ "View TRACK's metadata."
+ (interactive
+ (list (car (listen-library--selected-tracks))))
+ (listen-view-track track))
+
(declare-function listen-shell-command "listen")
(defun listen-library-shell-command (command filenames)
"Run COMMAND on FILENAMES.
