Tweaks

1 files changed, 14 insertions, 15 deletions

diff --git a/home.lisp b/home.lisp
index 0446b72..71fe31c 100644
--- a/home.lisp
+++ b/home.lisp
@@ -7,7 +7,7 @@
 (defun create-new-playlist-form (parent)
   (with-clog-create parent
       (form ()
-           (section (:h2 :content "Create New Playlist"))
+           (section (:h3 :content "Create New Playlist"))
            (label (:content "Playlist Title:"))
            (form-element (:text :bind pl-title))
            (button (:content "Create" :bind btn)))
@@ -23,18 +23,16 @@
 
 (defun create-playlist-listing (parent)
   (dolist (pl (user-playlists (session-user parent)))
-    (let ((url
-            (url-to-playlist pl)))
-      (with-clog-create parent
-          (div (:bind pl-item)
-               (p ()
-                  (a (:link url :content (playlist-title pl)))
-                  (button (:content "X" :bind btn))))
-        (set-on-click
-         btn
-         (thunk*
-           (destroy-playlist pl)
-           (destroy pl-item)))))))
+    (with-clog-create parent
+        (div (:bind pl-item)
+             (div ()
+                  (playlist-explore-card (pl))
+                  (button (:content "delete" :bind btn))))
+      (set-on-click
+       btn
+       (thunk*
+         (destroy-playlist pl)
+         (destroy pl-item))))))
 
 (defun create-invite-list-item (invite-list invite)
   (with-clog-create invite-list
@@ -84,9 +82,10 @@
            (navigation-header ())
            (div (:class "row")
                 (div () 
-                     (p (:content (format nil "Welcome ~a" (user-name (session-user body)))))
+                     (section  (:pre :content (format nil "Welcome ~a" (user-name (session-user body)))))
+                     (section (:h3 :content "Your Playlists"))
+                     (div (:class "row") (playlist-listing ()))
                      (new-playlist-form ())
-                     (playlist-listing ())
                      (invite-control ()))))))