multi player / per user playing and translation

private/player-agent-core.rkt

@@ -7,7 +7,8 @@
          racket/path
          racket/port
          racket/string
-         simple-log)
+         simple-log
+         "translate.rkt")
 
 (provide (struct-out player-agent-runtime)
          make-player-agent-runtime)
@@ -321,17 +322,12 @@
     (with-handlers
         ((exn:fail:agent-denied?
           (lambda (exception)
-            (define message
-              (string-append
-               "Deze playback agent is niet toegelaten door de server. "
-               "Voeg het volgende applicatie-ID toe aan [playback-agents] "
-               "in de server-INI:\n\n"
-               app-id))
+            (define message (format (tr 'denied-message) app-id))
             (warn-player-agent "Agent authorization refused: ~a"
                                (exn-message exception))
             (set-agent-error! message)
             (status-callback
-             "Niet geautoriseerd — applicatie-ID staat niet in de server-INI")
+             (tr 'unauthorized-status))
             (unless authorization-notified?
               (set! authorization-notified? #t)
               (denied-callback message))
@@ -344,7 +340,7 @@
                                (exn-message exception))
             (set-agent-error! (exn-message exception))
             (status-callback
-             (format "Niet verbonden: ~a" (exn-message exception)))
+             (format (tr 'disconnected) (exn-message exception)))
             (when running
               (sleep 3)
               (poll-loop)))))
@@ -352,7 +348,7 @@
                  "/api/agent/register"
                  (hasheq 'appId app-id 'name assigned-name))
       (clear-agent-error!)
-      (status-callback "Verbonden")
+      (status-callback (tr 'connected))
       (info-player-agent "Registered at ~a as ~a" server-url assigned-name)
       (let loop ()
         (when running
@@ -390,7 +386,7 @@
   (define (start!)
     (unless running
       (set! running #t)
-      (status-callback "Verbinden…")
+      (status-callback (tr 'connecting))
       (set! worker (thread poll-loop))))
 
   (define (stop!)