From 6fd8071a05fd79166f844b1503a6cbd143596e40 Mon Sep 17 00:00:00 2001 From: Luis Pereira Date: Fri, 20 Feb 2026 17:16:46 +0000 Subject: [PATCH] fix: add favourite count to icecast stats --- frontend-partials.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/frontend-partials.lisp b/frontend-partials.lisp index 5c61d08..a0f27d3 100644 --- a/frontend-partials.lisp +++ b/frontend-partials.lisp @@ -34,6 +34,7 @@ (error (e) (declare (ignore e)) nil)))) + (defun icecast-now-playing (icecast-base-url &optional (mount "asteroid.mp3")) "Fetch now-playing information from Icecast server. @@ -89,7 +90,8 @@ `((:listenurl . ,(format nil "~a/~a" *stream-base-url* mount)) (:title . ,title) (:listeners . ,total-listeners) - (:track-id . ,(find-track-by-title title)))))))) + (:track-id . ,(find-track-by-title title)) + (:favorite-count . ,(or (get-track-favorite-count title) 1)))))))) (define-api-with-limit asteroid/partial/now-playing (&optional mount) (:limit 10 :timeout 1) "Get Partial HTML with live status from Icecast server.