From 9fe45e4f7b54279f114e133e12a33f596dc7ef26 Mon Sep 17 00:00:00 2001 From: shoshin Date: Sun, 11 Dec 2022 21:24:03 -0600 Subject: Add: more refinements to responsive styles --- explore.lisp | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'explore.lisp') diff --git a/explore.lisp b/explore.lisp index 1774a2d..5c99fb8 100644 --- a/explore.lisp +++ b/explore.lisp @@ -8,15 +8,13 @@ (defun create-playlist-explore-card (parent pl) (with-clog-create parent - (div (:bind card) + (div (:bind card :class "card") (a (:link (url-to-playlist pl) ) - (img (:bind thumb)) + (img (:bind thumb :class "thumb")) (br ()) (span (:content (playlist-title pl))) (span (:content " -- ")) (span (:content (secs-to-hms (playlist-duration pl)))))) - (setf (maximum-width thumb) "180px" - (width card) "200px") (when-let (track (first (playlist-tracks pl))) (setf (url-src thumb) (or (track-thumb-url track) ""))))) @@ -45,6 +43,4 @@ (recent-playlists-area ())) (div () (section (:h3 :content "Who uses this?" :class "center")) - (user-list ())))) - (setf (maximum-width playlist-area) "80%" - (minimum-width playlist-area) "500px"))) + (user-list ())))))) -- cgit v1.2.3