Tweaks

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 ())