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

Fix playlist display polling and add footer links 

- Add /api/asteroid/channel-name endpoint for live channel name updates
- Update front-page.js and stream-player.js to poll server for channel name
  instead of relying on localStorage (fixes issue where listeners don't see
  playlist changes until page refresh)
- Add footer with Internet Radio directory link and craftering webring links
- Fix last-login display bug: use proper ISO 8601 timestamp format and
  parse as Date string instead of Unix epoch
This commit is contained in:
glenneth 2025-12-18 05:47:56 +03:00 committed by Brian O'Reilly
parent b415ca9530
commit bc7da82d84
8 changed files with 110 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
frontend-partials.lisp
View File

@ -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))))))

29
parenscript/front-page.lisp
View File

@ -595,6 +595,35 @@
;; Update now playing every 5 seconds
(set-interval update-now-playing 5000)
;; 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

23
parenscript/stream-player.lisp
View File

@ -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"))))
(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)))))))))
2000))
(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)

2
parenscript/users.lisp
View File

@ -58,7 +58,7 @@
"</td>"
"<td>" (if (ps:@ user active) "✅ Active" "❌ Inactive") "</td>"
"<td>" (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") "</td>"
"<td class=\"user-actions\">"
(if (ps:@ user active)

24
static/asteroid.lass
View File

@ -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

9
template/front-page-content.ctml
View File

@ -93,6 +93,15 @@
</div>
</div>
</main>
<footer class="site-footer">
<span>Listed on <a href="http://www.internet-radio.com/stations/ambient/" target="_blank" rel="noopener">Internet Radio</a></span>
<span class="craftering">
<a href="https://craftering.systemcrafters.net/@asteroid/previous">←</a>
<a href="https://craftering.systemcrafters.net/">craftering</a>
<a href="https://craftering.systemcrafters.net/@asteroid/next">→</a>
</span>
</footer>
</div>
</body>
</html>

9
template/front-page.ctml
View File

@ -126,6 +126,15 @@
</div>
</div>
</main>
<footer class="site-footer">
<span>Listed on <a href="http://www.internet-radio.com/stations/ambient/" target="_blank" rel="noopener">Internet Radio</a></span>
<span class="craftering">
<a href="https://craftering.systemcrafters.net/@asteroid/previous">←</a>
<a href="https://craftering.systemcrafters.net/">craftering</a>
<a href="https://craftering.systemcrafters.net/@asteroid/next">→</a>
</span>
</footer>
</div>
</body>
</html>

6
user-management.lisp
View File

@ -70,9 +70,13 @@
(when (and (= 1 user-active)
(verify-password password user-password))
;; Update last login using data-model (database agnostic)
;; Use ISO 8601 format that PostgreSQL TIMESTAMP can parse
(handler-case
(progn
(setf (dm:field user "last-login") (format nil "~a" (local-time:now)))
(setf (dm:field user "last-login")
(local-time:format-timestring nil (local-time:now)
:format '(:year "-" (:month 2) "-" (:day 2) " "
(:hour 2) ":" (:min 2) ":" (:sec 2))))
(dm:save user))
(error (e)
(format t "Warning: Could not update last-login: ~a~%" e)))