From aca3f9e03e5768cce31cbb560fa312a87ab7d49b Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Sun, 30 Oct 2022 18:01:54 -0500
Subject: Tweaks

---
 explore.lisp  |  1 +
 home.lisp     | 29 ++++++++++++++---------------
 playlist.lisp |  5 +++--
 3 files changed, 18 insertions(+), 17 deletions(-)

diff --git a/explore.lisp b/explore.lisp
index ca9cb8e..e2bc55c 100644
--- a/explore.lisp
+++ b/explore.lisp
@@ -11,6 +11,7 @@
       (div (:bind card)
            (a (:link (url-to-playlist pl) )
               (img (:bind thumb))
+              (br ())
               (span (:content (playlist-title pl)))
               (span (:content " -- "))
               (span (:content (secs-to-hms (playlist-duration pl))))))
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 ()))))))
 
 
diff --git a/playlist.lisp b/playlist.lisp
index c222395..4eaba3d 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -269,12 +269,13 @@
 (defun create-track-list-item (list track ctl)
   (with-clog-create list
       (list-item (:bind container)
+                 
+                 (div (:bind item :class "track-list-item")
+                      (section (:pre :content (track-listing-line track))))
                  (div (:bind edit-controls)
                       (button (:content "delete " :bind delbtn))
                       (button (:content "↓" :bind downbtn))
                       (button (:content "↑" :bind upbtn)))
-                 (div (:bind item :class "track-list-item")
-                      (section (:pre :content (track-listing-line track))))
                  (audio (:source (media-url-path track) :controls nil :bind audio)))
     (let ((track-ctl
             (make-instance 'track-ctl
-- 
cgit v1.2.3