From aca3f9e03e5768cce31cbb560fa312a87ab7d49b Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sun, 30 Oct 2022 18:01:54 -0500 Subject: Tweaks --- home.lisp | 29 ++++++++++++++--------------- 1 file changed, 14 insertions(+), 15 deletions(-) (limited to 'home.lisp') 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 ())))))) -- cgit v1.2.3