From 6bbc3d0b6afcc078a236e21d9e4e64ffefc6d13b Mon Sep 17 00:00:00 2001 From: Glenn Thompson Date: Thu, 20 Nov 2025 07:36:10 +0300 Subject: [PATCH] fix: Correct parenthesis mismatches in player.lisp and frontend-partials.lisp - Fixed missing closing paren in save-queue-as-playlist function - Fixed extra closing paren in icecast-now-playing function - Updated player.lisp with upstream changes from player.js: * Removed array indexing for track properties * Added RADIANCE API wrapper handling * Complete save-queue-as-playlist implementation - Build and server startup now working correctly --- frontend-partials.lisp | 2 +- parenscript/player.lisp | 5 ++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/frontend-partials.lisp b/frontend-partials.lisp index 19001cf..1e89d03 100644 --- a/frontend-partials.lisp +++ b/frontend-partials.lisp @@ -37,7 +37,7 @@ (format t "DEBUG: Parsed title=~a, total-listeners=~a~%" title total-listeners) `((:listenurl . ,(format nil "~a/asteroid.mp3" *stream-base-url*)) (:title . ,title) - (:listeners . ,total-listeners)))))) + (:listeners . ,total-listeners))))))) (define-api asteroid/partial/now-playing () () "Get Partial HTML with live status from Icecast server" diff --git a/parenscript/player.lisp b/parenscript/player.lisp index 93b9955..48d2a0f 100644 --- a/parenscript/player.lisp +++ b/parenscript/player.lisp @@ -439,7 +439,7 @@ (when (== (ps:@ add-result data status) "success") (setf added-count (+ added-count 1))))) (catch (lambda (err) - (ps:chain console (log "Error adding track:" err)))))))))) + (ps:chain console (log "Error adding track:" err))))))))))) (alert (+ "Playlist \"" name "\" created with " added-count " tracks!")) (load-playlists)))) @@ -608,8 +608,7 @@ (setf (ps:@ window library-next-page) library-next-page) (setf (ps:@ window library-go-to-last-page) library-go-to-last-page) (setf (ps:@ window change-library-tracks-per-page) change-library-tracks-per-page) - (setf (ps:@ window load-playlist) load-playlist) - )) + (setf (ps:@ window load-playlist) load-playlist))) "Compiled JavaScript for web player - generated at load time") (defun generate-player-js ()