diff options
Diffstat (limited to 'vampire.lisp')
| -rw-r--r-- | vampire.lisp | 38 |
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 |