diff options
| -rw-r--r-- | home.lisp | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -4,10 +4,9 @@ ;;; CLIENT UI -(defun create-new-playlist-form (parent &rest args) - (declare (ignorable args)) +(defun create-new-playlist-form (parent) (with-clog-create parent - (div () + (form () (section (:h2 :content "Create New Playlist")) (label (:content "Playlist Title:")) (form-element (:text :bind pl-title)) @@ -27,14 +26,15 @@ (let ((url (url-to-playlist pl))) (with-clog-create parent - (div () + (div (:bind pl-item) (p () - (a (:link url :content (playlist-title pl) :bind pl-link)))) + (a (:link url :content (playlist-title pl))) + (button (:content "X" :bind btn)))) (set-on-click - pl-link + btn (thunk* - (setf (url (location (connection-body parent))) - url))))))) + (destroy-playlist pl) + (destroy pl-item))))))) (defun create-invite-list-item (invite-list invite) (with-clog-create invite-list |