aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--home.lisp16
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