From 46371385ee5d95217b7b1fb636e17d9277835f69 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 28 Oct 2022 16:06:29 -0500 Subject: Tweaks --- explore.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'explore.lisp') 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 ()) -- cgit v1.2.3