Add: more refinements to responsive styles

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