diff options
| -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 |