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

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
This commit is contained in:
Glenn Thompson 2025-11-20 07:36:10 +03:00
parent a08e42f752
commit 6bbc3d0b6a
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frontend-partials.lisp
View File

@ -37,7 +37,7 @@
(format t "DEBUG: Parsed title=~a, total-listeners=~a~%" title total-listeners) (format t "DEBUG: Parsed title=~a, total-listeners=~a~%" title total-listeners)
`((:listenurl . ,(format nil "~a/asteroid.mp3" *stream-base-url*)) `((:listenurl . ,(format nil "~a/asteroid.mp3" *stream-base-url*))
(:title . ,title) (:title . ,title)
(:listeners . ,total-listeners)))))) (:listeners . ,total-listeners)))))))
(define-api asteroid/partial/now-playing () () (define-api asteroid/partial/now-playing () ()
"Get Partial HTML with live status from Icecast server" "Get Partial HTML with live status from Icecast server"

5
parenscript/player.lisp
View File

@ -439,7 +439,7 @@
(when (== (ps:@ add-result data status) "success") (when (== (ps:@ add-result data status) "success")
(setf added-count (+ added-count 1))))) (setf added-count (+ added-count 1)))))
(catch (lambda (err) (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!")) (alert (+ "Playlist \"" name "\" created with " added-count " tracks!"))
(load-playlists)))) (load-playlists))))
@ -608,8 +608,7 @@
(setf (ps:@ window library-next-page) library-next-page) (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 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 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") "Compiled JavaScript for web player - generated at load time")
(defun generate-player-js () (defun generate-player-js ()