From b500349671a80de641a18b9a28125071e7dfa6e7 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Wed, 26 Oct 2022 14:14:30 -0500 Subject: Fix+Add: eval-when of defclass/bknr; track upload form; --- vampire.lisp | 38 -------------------------------------- 1 file changed, 38 deletions(-) (limited to 'vampire.lisp') 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 -- cgit v1.2.3