change to audio-player.rkt
This commit is contained in:
@@ -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))
|
||||
|
||||
Reference in New Issue
Block a user