diff options
Diffstat (limited to 'explore.lisp')
| -rw-r--r-- | explore.lisp | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/explore.lisp b/explore.lisp index f562448..5e6ada0 100644 --- a/explore.lisp +++ b/explore.lisp @@ -8,13 +8,14 @@ (defun create-playlist-explore-card (parent pl) (with-clog-create parent - (div () + (div (:bind card) (img (:bind thumb)) - (section (:h4) + (div () (a (:link (url-to-playlist pl) :content (playlist-title pl))) (span (:content " -- ")) (span (:content (secs-to-hms (playlist-duration pl)))))) - (setf (maximum-width thumb) "120px") + (setf (maximum-width thumb) "180px" + (width card) "200px") (when-let (track (first (playlist-tracks pl))) (setf (url-src thumb) (or (track-thumb-url track) ""))))) @@ -24,6 +25,7 @@ (create-playlist-explore-card container pl)))) (defun explore-page (body) + (include-style body) (with-clog-create body (div () (navigation-header ()) |