From 8f7a582c90eb6a879deeb39658dd9f7de3b31149 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 25 Oct 2022 09:42:53 -0500 Subject: Modify: nabbing playlist key from path --- vampire.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/vampire.lisp b/vampire.lisp index e7ce96d..d530fb3 100644 --- a/vampire.lisp +++ b/vampire.lisp @@ -111,7 +111,7 @@ (reload (location (connection-body parent))))))) (defun url-to-playlist (pl location) - (format nil "~a//~a/playlist?list=~a" + (format nil "~a//~a/playlist/~a" (protocol location) (host location) (key pl))) @@ -136,8 +136,6 @@ (pathname-name (track-file track)) (pathname-type (track-file track)))) -(create-audio ) - (defun create-track-listing (parent playlist &rest args) (declare (ignorable args)) (dolist (track (playlist-tracks playlist)) @@ -185,9 +183,12 @@ (format nil "Error whiel fetching track at: ~a~%" url))))))))) +(defun playlist-key-from-url (url) + (first (last (ppcre:split "/" (nth 4 (multiple-value-list (quri:parse-uri url))))))) + (defun playlist-page (body) (when-let* ((listid - (form-data-item (form-get-data body) "list")) + (playlist-key-from-url (url (location body)))) (playlist (object-with-key listid))) (with-clog-create body -- cgit v1.2.3