diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-25 10:03:02 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-25 10:03:02 -0500 |
| commit | e75db7bd501d4a7b8c085f0a6de62666521b45f4 (patch) | |
| tree | 597c7727ba6824f9169c5849cec9b50bb539a26b | |
| parent | 1c73e820d0995e0aa74d0725c39f5c3b5e59d2e6 (diff) | |
Add: artist and duration display to track listing
| -rw-r--r-- | vampire.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
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 |