Fix+Add: eval-when of defclass/bknr; track upload form;

1 files changed, 0 insertions, 38 deletions

diff --git a/vampire.lisp b/vampire.lisp
index eef75cc..cf6accc 100644
--- a/vampire.lisp
+++ b/vampire.lisp
@@ -79,44 +79,6 @@
                  url)))))))
 
 
-
-
-
-
-;; (defun create-track-form (parent playlist &rest args)
-;;   (declare (ignorable args))
-;;   (with-clog-create parent
-;;       (div ()
-;;            (section (:h3 :content "Add Track"))
-;;            (label (:content "Paste URL: " :bind url-label))
-;;            (form-element (:text :bind url-input))
-;;            (button (:content "Fetch Track" :bind submit-button))
-;;            (div (:bind notice-area)))
-;;     (label-for url-label url-input)
-;;     (setf (place-holder url-input) "https://www.youtube.com/watch?v=dQw4w9WgXcQ")
-;;     (set-on-click
-;;      submit-button
-;;      (alambda
-;;          (let* ((url
-;;                   (value url-input))
-;;                 (notice
-;;                   (create-p notice-area :content (format nil "... Fetching ~a" url))))
-;;            (setf (value url-input) "")
-;;            (add-fetch-track-job
-;;             url
-;;             (lambda (track)
-;;               (remove-from-dom notice)
-;;               (append-track playlist track)
-;;               (add-track-to-listing parent track))
-;;             (lambda (err)
-;;               (remove-from-dom notice)
-;;               (format t "Error: ~a~%" err)
-;;               (alert (window (connection-body parent))
-;;                      (format nil "Error while fetching track at: ~a~%"
-;;                              url)))))))))
-
-
-
 (defun user-page (body)
   (if-let (user (session-user body)) 
     (with-clog-create body