diff --git a/frontend-partials.lisp b/frontend-partials.lisp
index 157ef61..a300e4c 100644
--- a/frontend-partials.lisp
+++ b/frontend-partials.lisp
@@ -96,3 +96,9 @@
(progn
(setf (header "Content-Type") "text/plain")
"Stream Offline")))))
+
+(define-api asteroid/channel-name () ()
+ "Get the current curated channel name for live updates.
+ Returns JSON with the channel name from the current playlist's PHASE header."
+ (with-error-handling
+ (api-output `(("channel_name" . ,(get-curated-channel-name))))))
diff --git a/parenscript/front-page.lisp b/parenscript/front-page.lisp
index 628324d..de76396 100644
--- a/parenscript/front-page.lisp
+++ b/parenscript/front-page.lisp
@@ -594,8 +594,37 @@
;; Update now playing every 5 seconds
(set-interval update-now-playing 5000)
-
- ;; Listen for messages from popout window
+
+ ;; Poll server for channel name changes (works across all listeners)
+ (let ((last-channel-name nil))
+ (set-interval
+ (lambda ()
+ (ps:chain
+ (fetch "/api/asteroid/channel-name")
+ (then (lambda (response)
+ (if (ps:@ response ok)
+ (ps:chain response (json))
+ nil)))
+ (then (lambda (data)
+ (when data
+ (let ((current-channel-name (or (ps:@ data data channel_name)
+ (ps:@ data channel_name))))
+ (when (and current-channel-name
+ (not (= current-channel-name last-channel-name)))
+ (setf last-channel-name current-channel-name)
+ ;; Update localStorage for cross-window sync
+ (ps:chain local-storage (set-item "curated-channel-name" current-channel-name))
+ ;; Update channel selector in current document
+ (let ((channel-selector (ps:chain document (get-element-by-id "stream-channel"))))
+ (when channel-selector
+ (let ((curated-option (ps:chain channel-selector (query-selector "option[value='curated']"))))
+ (when curated-option
+ (setf (ps:@ curated-option text-content) (+ "🎧 " current-channel-name)))))))))))
+ (catch (lambda (error)
+ (ps:chain console (log "Could not fetch channel name:" error))))))
+ 10000)) ;; Poll every 10 seconds
+
+ ;; Listen for messages from popout window
(ps:chain window
(add-event-listener
"message"
diff --git a/parenscript/stream-player.lisp b/parenscript/stream-player.lisp
index a2bcbc3..a69c7ab 100644
--- a/parenscript/stream-player.lisp
+++ b/parenscript/stream-player.lisp
@@ -556,20 +556,33 @@
;; Update quality selector state based on channel
(update-quality-selector-state)
- ;; Check for channel name changes from localStorage periodically
- (let ((last-channel-name (ps:chain local-storage (get-item "curated-channel-name"))))
+ ;; Poll server for channel name changes (works across all listeners)
+ (let ((last-channel-name nil))
(set-interval
(lambda ()
- (let ((current-channel-name (ps:chain local-storage (get-item "curated-channel-name"))))
- (when (and current-channel-name
- (not (= current-channel-name last-channel-name)))
- (setf last-channel-name current-channel-name)
- (let ((channel-selector (ps:chain document (get-element-by-id "stream-channel"))))
- (when channel-selector
- (let ((curated-option (ps:chain channel-selector (query-selector "option[value='curated']"))))
- (when curated-option
- (setf (ps:@ curated-option text-content) (+ "🎧 " current-channel-name)))))))))
- 2000))
+ (ps:chain
+ (fetch "/api/asteroid/channel-name")
+ (then (lambda (response)
+ (if (ps:@ response ok)
+ (ps:chain response (json))
+ nil)))
+ (then (lambda (data)
+ (when data
+ (let ((current-channel-name (or (ps:@ data data channel_name)
+ (ps:@ data channel_name))))
+ (when (and current-channel-name
+ (not (= current-channel-name last-channel-name)))
+ (setf last-channel-name current-channel-name)
+ ;; Update localStorage for popout player sync
+ (ps:chain local-storage (set-item "curated-channel-name" current-channel-name))
+ (let ((channel-selector (ps:chain document (get-element-by-id "stream-channel"))))
+ (when channel-selector
+ (let ((curated-option (ps:chain channel-selector (query-selector "option[value='curated']"))))
+ (when curated-option
+ (setf (ps:@ curated-option text-content) (+ "🎧 " current-channel-name)))))))))))
+ (catch (lambda (error)
+ (ps:chain console (log "Could not fetch channel name:" error))))))
+ 10000)) ;; Poll every 10 seconds
;; Start now playing updates
(set-timeout update-mini-now-playing 1000)
diff --git a/parenscript/users.lisp b/parenscript/users.lisp
index 28bad00..a2c5971 100644
--- a/parenscript/users.lisp
+++ b/parenscript/users.lisp
@@ -58,7 +58,7 @@
""
"| " (if (ps:@ user active) "✅ Active" "❌ Inactive") " | "
"" (if (ps:getprop user "last-login")
- (ps:chain (ps:new (-date (* (ps:getprop user "last-login") 1000))) (to-locale-string))
+ (ps:chain (ps:new (-date (ps:getprop user "last-login"))) (to-locale-string))
"Never") " | "
""
(if (ps:@ user active)
diff --git a/static/asteroid.lass b/static/asteroid.lass
index 6f7348b..9265903 100644
--- a/static/asteroid.lass
+++ b/static/asteroid.lass
@@ -1250,4 +1250,28 @@
(0% :opacity 1)
(50% :opacity 0.3)
(100% :opacity 1))
+
+ ;; Site footer - subtle, unobtrusive
+ (.site-footer
+ :text-align "center"
+ :padding "20px 0"
+ :margin-top "30px"
+ :border-top "1px solid #333"
+ :font-size "0.85em"
+ :color "#666"
+ :display "flex"
+ :justify-content "center"
+ :gap "30px"
+ :flex-wrap "wrap"
+
+ (a
+ :color "#888"
+ :text-decoration "none"
+ :transition "color 0.2s ease")
+
+ ((:and a :hover)
+ :color "#00ff00")
+
+ (.craftering
+ (a :margin "0 5px")))
) ;; End of let block
diff --git a/template/front-page-content.ctml b/template/front-page-content.ctml
index 2cc4bb4..8105c0a 100644
--- a/template/front-page-content.ctml
+++ b/template/front-page-content.ctml
@@ -93,6 +93,15 @@
+
+
|