glenn
/
asteroid
mirror of https://github.com/glenneth1/asteroid.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix ParenScript constructor syntax: use ps:new for class instantiation 

Change (new -ClassName) to (ps:new (-ClassName)) for proper ParenScript
macro expansion. Fixes Event and FormData constructors.

Co-authored-by: @easilok
This commit is contained in:
Glenn Thompson 2025-12-10 11:56:04 +03:00 committed by Brian O'Reilly
parent 68a83390c9
commit 6fac97b6e1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
parenscript/player.lisp
View File

@ -96,7 +96,7 @@
(stream-quality (or (ps:chain local-storage (get-item "stream-quality")) "aac")))
(when (and selector (not (= (ps:@ selector value) stream-quality)))
(setf (ps:@ selector value) stream-quality)
(ps:chain selector (dispatch-event (new "Event" "change"))))))))
(ps:chain selector (dispatch-event (ps:new (-Event "change")))))))))
;; Frame redirection logic
(defun redirect-when-frame ()
@ -475,7 +475,7 @@
(let ((menu (ps:chain document (get-element-by-id "playlist-dropdown-menu"))))
(when menu (ps:chain menu (remove))))
(let ((form-data (new -Form-data)))
(let ((form-data (ps:new (-Form-data))))
(ps:chain form-data (append "playlist-id" playlist-id))
(ps:chain form-data (append "track-id" track-id))
(ps:chain (fetch "/api/asteroid/playlists/add-track"
@ -499,7 +499,7 @@
(defun create-playlist ()
(let ((name (ps:chain (ps:chain document (get-element-by-id "new-playlist-name")) value (trim))))
(when (not (= name ""))
(let ((form-data (new -Form-data)))
(let ((form-data (ps:new (-Form-data))))
(ps:chain form-data (append "name" name))
(ps:chain form-data (append "description" ""))
@ -528,7 +528,7 @@
(let ((name (prompt "Enter playlist name:")))
(when name
;; Create the playlist
(let ((form-data (new "FormData")))
(let ((form-data (ps:new (-Form-data))))
(ps:chain form-data (append "name" name))
(ps:chain form-data (append "description" (+ "Created from queue with " (ps:@ *play-queue* length) " tracks")))
@ -564,7 +564,7 @@
(for-each (lambda (track)
(let ((track-id (ps:@ track id)))
(when track-id
(let ((add-form-data (new -Form-data)))
(let ((add-form-data (ps:new (-Form-data))))
(ps:chain add-form-data (append "playlist-id" (ps:@ new-playlist id)))
(ps:chain add-form-data (append "track-id" track-id))
@ -642,7 +642,7 @@
;; Delete playlist
(defun delete-playlist (playlist-id playlist-name)
(when (confirm (+ "Are you sure you want to delete playlist \"" playlist-name "\"?"))
(let ((form-data (new -Form-data)))
(let ((form-data (ps:new (-Form-data))))
(ps:chain form-data (append "playlist-id" playlist-id))
(ps:chain (fetch "/api/asteroid/playlists/delete"
(ps:create :method "POST" :body form-data))