aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--vampire.lisp3
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