[elpa] externals/listen c0532bdbe9 03/12: Change: (listen-track) Rename length -> duration

[ELPA Syncer]

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

    Change: (listen-track) Rename length -> duration
    
    "Length" could be bytes or frames, but "duration" should be clearly in
    seconds.
---
 listen-lib.el   | 2 +-
 listen-queue.el | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/listen-lib.el b/listen-lib.el
index 9b21af2591..5da08872e4 100644
--- a/listen-lib.el
+++ b/listen-lib.el
@@ -35,7 +35,7 @@
   name tracks current etc)
 
 (cl-defstruct listen-track
-  filename artist title album number genre length date rating etc)
+  filename artist title album number genre duration date rating etc)
 
 (cl-defmethod cl-print-object ((track listen-track) stream)
   (prin1 (listen-track-filename track) stream))
diff --git a/listen-queue.el b/listen-queue.el
index 9d7857f917..3550041f62 100644
--- a/listen-queue.el
+++ b/listen-queue.el
@@ -102,6 +102,10 @@
                    (list :name "#" :primary 'descend
                          :getter (lambda (track _table)
                                    (cl-position track (listen-queue-tracks 
queue))))
+                   (list :name "Duration"
+                         :getter (lambda (track _table)
+                                   (when-let ((duration (listen-track-duration 
track)))
+                                     (listen-format-seconds duration))))
                    (list :name "Artist" :max-width 20 :align 'right
                          :getter (lambda (track _table)
                                    (propertize (or (listen-track-artist track) 
"")
@@ -583,8 +587,7 @@ MAX-PROCESSES limits the number of parallel probing 
processes."
                                            (goto-char (point-min))
                                            (let ((duration (read 
(current-buffer))))
                                              (cl-check-type duration number )
-                                             ;; FIXME: length->duration
-                                             (setf (listen-track-length track) 
duration)))))
+                                             (setf (listen-track-duration 
track) duration)))))
                                     (kill-buffer (process-buffer process))
                                     (cl-callf2 remove process processes)
                                     (probe-more))))