diff options
Diffstat (limited to 'home.lisp')
| -rw-r--r-- | home.lisp | 29 |
1 files changed, 14 insertions, 15 deletions
@@ -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 ())))))) |