multi player / per user playing and translation

private/server.rkt

@@ -119,6 +119,24 @@
       (request-jsexpr request)
       #:username (request-username request)))))
 
+(define (preferences-handler request)
+  (json-response
+   (hasheq
+    'language
+    (or (player-user-language
+         current-player
+         #:username (request-username request))
+        'null))))
+
+(define (preferences-update-handler request)
+  (with-handlers ((exn:fail? error-response))
+    (define language (hash-ref (request-jsexpr request) 'language #f))
+    (player-user-language!
+     current-player
+     language
+     #:username (request-username request))
+    (json-response (hasheq 'language language))))
+
 (define (agent-register-handler request)
   (with-handlers
       ((exn:fail:agent-denied? agent-error-response)
@@ -190,6 +208,8 @@
    [("api" "auth" "logout") #:method "post" auth-logout-handler]
    [("api" "state") #:method "get" state-handler]
    [("api" "discover") #:method "post" discover-handler]
+   [("api" "preferences") #:method "get" preferences-handler]
+   [("api" "preferences") #:method "post" preferences-update-handler]
    [("api" "agent" "register") #:method "post" agent-register-handler]
    [("api" "agent" "poll") #:method "post" agent-poll-handler]
    [("api" "agent" "media" (string-arg) (string-arg))