Add: delete playlists

1 files changed, 8 insertions, 8 deletions

diff --git a/home.lisp b/home.lisp
index 90fce4e..eb59e83 100644
--- a/home.lisp
+++ b/home.lisp
@@ -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