change to audio-player.rkt

This commit is contained in:
2026-05-18 10:35:14 +02:00
parent fccf019fe7
commit e60ecaeaef
4 changed files with 188 additions and 370 deletions
+3 -3
View File
@@ -184,7 +184,7 @@
((eq? st 'stopped)
(set-play-button "buttons/play.svg")
(send el set-innerHTML! '(span (tr "stopped"))))
((eq? st 'pauzed)
((eq? st 'paused)
(set-play-button "buttons/play.svg")
(send el set-innerHTML! '(span ((class "blink")) (tr "paused"))))
(else
@@ -308,7 +308,7 @@
(send playlist add-tab!)
(send this update-tabs))
(define (update-audio-info samples rate channels bits audio-format)
(define (update-audio-info rate channels bits audio-format)
(send el-bits set-innerHTML! (format "~a ~a" bits (tr "bits")))
(send el-channels set-innerHTML! (format "~a ~a" channels (tr "channels")))
(send el-rate set-innerHTML! (format "~a Hz" rate))
@@ -579,7 +579,7 @@
(cond
((eq? state 'playing)
(send player pause!))
((eq? state 'pauzed)
((eq? state 'paused)
(send player play!))
(else
(play-track 0))