From e75db7bd501d4a7b8c085f0a6de62666521b45f4 Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Tue, 25 Oct 2022 10:03:02 -0500
Subject: Add: artist and duration display to track listing

---
 vampire.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/vampire.lisp b/vampire.lisp
index d530fb3..0d16bba 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -62,6 +62,7 @@
     (setf (playlist-tracks pl) newlist
           (track-playlists track) (delete pl (track-playlists track)
                                           :test #'eq :count 1))))
+
 ;;; TRANSACTIONS
 
 (defun append-track (pl tr)
@@ -143,6 +144,8 @@
         (div (:bind view)
              (section (:h4 :content (track-title track)))
              (img (:bind thumb))
+             (p (:content (track-artist track)))
+             (p (:content (secs-to-hms (or (track-duration track) 0))))
              (audio (:source (media-url-path track) :controls nil :bind audio)))
       (set-on-click
        view
-- 
cgit v1.2.3