diff options
Diffstat (limited to 'explore.lisp')
| -rw-r--r-- | explore.lisp | 10 |
1 files changed, 3 insertions, 7 deletions
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 ())))))) |