From 7017fb6cd063075f9c05a92dad8446b27b484a4e Mon Sep 17 00:00:00 2001
From: Colin Okay <colin@cicadas.surf>
Date: Fri, 28 Oct 2022 14:47:07 -0500
Subject: Add: delete playlists

---
 home.lisp | 16 ++++++++--------
 1 file 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
-- 
cgit v1.2.3