Client: set the Accept-Language header

3 files changed, 45 insertions, 35 deletions

diff --git a/po/disfluid.pot b/po/disfluid.pot
index 6b4e3f1..1abf6d2 100644
--- a/po/disfluid.pot
+++ b/po/disfluid.pot
@@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: disfluid SNAPSHOT\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-10-04 23:03+0200\n"
+"POT-Creation-Date: 2021-10-04 23:06+0200\n"
 "PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -277,8 +277,8 @@ msgid ""
 msgstr ""
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:52
-#: src/scm/webid-oidc/client.scm:307 src/scm/webid-oidc/client.scm:324
-#: src/scm/webid-oidc/client.scm:341 src/scm/webid-oidc/hello-world.scm:40
+#: src/scm/webid-oidc/client.scm:309 src/scm/webid-oidc/client.scm:326
+#: src/scm/webid-oidc/client.scm:343 src/scm/webid-oidc/hello-world.scm:40
 #: src/scm/webid-oidc/hello-world.scm:167
 #: src/scm/webid-oidc/hello-world.scm:187
 #: src/scm/webid-oidc/identity-provider.scm:136
@@ -289,7 +289,7 @@ msgid "xml-lang|en"
 msgstr ""
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:67
-#: src/scm/webid-oidc/client.scm:309
+#: src/scm/webid-oidc/client.scm:311
 msgid "page-title|Authorization"
 msgstr ""
 
@@ -467,57 +467,61 @@ msgstr ""
 msgid "cannot serve the public manifest"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:177
+#: src/scm/webid-oidc/client.scm:133
+msgid "accept-language-header|en-us"
+msgstr ""
+
+#: src/scm/webid-oidc/client.scm:179
 msgid "Example application"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:204
+#: src/scm/webid-oidc/client.scm:206
 msgid "#:client-name should be a string"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:211
+#: src/scm/webid-oidc/client.scm:213
 msgid "#:client-uri should be an URI"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:220
+#: src/scm/webid-oidc/client.scm:222
 msgid "#:response-types should be a list of symbols"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:229
+#: src/scm/webid-oidc/client.scm:231
 msgid "#:grant-types should be a list of symbols"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:281 src/scm/webid-oidc/resource-server.scm:173
+#: src/scm/webid-oidc/client.scm:283 src/scm/webid-oidc/resource-server.scm:173
 msgid "reason-phrase|Not Modified"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:311
+#: src/scm/webid-oidc/client.scm:313
 msgid ""
 "You have been authorized. Please paste the following code in the application:"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:316
+#: src/scm/webid-oidc/client.scm:318
 msgid "reason-phrase|Invalid Request"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:326
+#: src/scm/webid-oidc/client.scm:328
 msgid "page-title|Error"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:328
+#: src/scm/webid-oidc/client.scm:330
 msgid "Your identity provider did not authorize you. :("
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:333
+#: src/scm/webid-oidc/client.scm:335
 #: src/scm/webid-oidc/identity-provider.scm:129
 msgid "reason-phrase|Not Found"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:343
+#: src/scm/webid-oidc/client.scm:345
 msgid "page-title|Not Found"
 msgstr ""
 
-#: src/scm/webid-oidc/client.scm:345
+#: src/scm/webid-oidc/client.scm:347
 msgid "This page does not exist on the server."
 msgstr ""
 
diff --git a/po/fr.po b/po/fr.po
index d58d6ff..a27fa09 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -2,8 +2,8 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc 0.0.0\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-10-04 23:03+0200\n"
-"PO-Revision-Date: 2021-10-04 23:02+0200\n"
+"POT-Creation-Date: 2021-10-04 23:06+0200\n"
+"PO-Revision-Date: 2021-10-04 23:06+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
 "Language: fr\n"
@@ -308,8 +308,8 @@ msgstr ""
 "requis (#:webid et #:client-id), soit (#:jwt-header et #:jwt-payload)"
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:52
-#: src/scm/webid-oidc/client.scm:307 src/scm/webid-oidc/client.scm:324
-#: src/scm/webid-oidc/client.scm:341 src/scm/webid-oidc/hello-world.scm:40
+#: src/scm/webid-oidc/client.scm:309 src/scm/webid-oidc/client.scm:326
+#: src/scm/webid-oidc/client.scm:343 src/scm/webid-oidc/hello-world.scm:40
 #: src/scm/webid-oidc/hello-world.scm:167
 #: src/scm/webid-oidc/hello-world.scm:187
 #: src/scm/webid-oidc/identity-provider.scm:136
@@ -320,7 +320,7 @@ msgid "xml-lang|en"
 msgstr "fr"
 
 #: src/scm/webid-oidc/authorization-page-unsafe.scm:67
-#: src/scm/webid-oidc/client.scm:309
+#: src/scm/webid-oidc/client.scm:311
 msgid "page-title|Authorization"
 msgstr "Autorisation"
 
@@ -509,59 +509,63 @@ msgstr ""
 msgid "cannot serve the public manifest"
 msgstr "impossible de servir le manifeste public"
 
-#: src/scm/webid-oidc/client.scm:177
+#: src/scm/webid-oidc/client.scm:133
+msgid "accept-language-header|en-us"
+msgstr "fr-fr"
+
+#: src/scm/webid-oidc/client.scm:179
 msgid "Example application"
 msgstr "Application exemple"
 
-#: src/scm/webid-oidc/client.scm:204
+#: src/scm/webid-oidc/client.scm:206
 msgid "#:client-name should be a string"
 msgstr "#:client-name doit être une chaîne de caractères"
 
-#: src/scm/webid-oidc/client.scm:211
+#: src/scm/webid-oidc/client.scm:213
 msgid "#:client-uri should be an URI"
 msgstr "#:client-uri doit être une URI"
 
-#: src/scm/webid-oidc/client.scm:220
+#: src/scm/webid-oidc/client.scm:222
 msgid "#:response-types should be a list of symbols"
 msgstr "#:response-types doit être une liste de symboles"
 
-#: src/scm/webid-oidc/client.scm:229
+#: src/scm/webid-oidc/client.scm:231
 msgid "#:grant-types should be a list of symbols"
 msgstr "#:grant-types doit être une liste de symboles"
 
-#: src/scm/webid-oidc/client.scm:281 src/scm/webid-oidc/resource-server.scm:173
+#: src/scm/webid-oidc/client.scm:283 src/scm/webid-oidc/resource-server.scm:173
 msgid "reason-phrase|Not Modified"
 msgstr "Non Modifié"
 
-#: src/scm/webid-oidc/client.scm:311
+#: src/scm/webid-oidc/client.scm:313
 msgid ""
 "You have been authorized. Please paste the following code in the application:"
 msgstr ""
 "Vous avez été autorisé. Veuillez coller le code suivant dans votre "
 "application :"
 
-#: src/scm/webid-oidc/client.scm:316
+#: src/scm/webid-oidc/client.scm:318
 msgid "reason-phrase|Invalid Request"
 msgstr "Requête Invalide"
 
-#: src/scm/webid-oidc/client.scm:326
+#: src/scm/webid-oidc/client.scm:328
 msgid "page-title|Error"
 msgstr "Erreur"
 
-#: src/scm/webid-oidc/client.scm:328
+#: src/scm/webid-oidc/client.scm:330
 msgid "Your identity provider did not authorize you. :("
 msgstr "Votre fournisseur d’identité ne vous a pas autorisé. :("
 
-#: src/scm/webid-oidc/client.scm:333
+#: src/scm/webid-oidc/client.scm:335
 #: src/scm/webid-oidc/identity-provider.scm:129
 msgid "reason-phrase|Not Found"
 msgstr "Non Trouvé"
 
-#: src/scm/webid-oidc/client.scm:343
+#: src/scm/webid-oidc/client.scm:345
 msgid "page-title|Not Found"
 msgstr "Non Trouvé"
 
-#: src/scm/webid-oidc/client.scm:345
+#: src/scm/webid-oidc/client.scm:347
 msgid "This page does not exist on the server."
 msgstr "Cette page n’existe pas sur le serveur."
 
diff --git a/src/scm/webid-oidc/client.scm b/src/scm/webid-oidc/client.scm
index 9200332..246731e 100644
--- a/src/scm/webid-oidc/client.scm
+++ b/src/scm/webid-oidc/client.scm
@@ -130,6 +130,8 @@
       (let ((all-headers
              `((dpop . ,dpop-proof)
                (authorization . (dpop . ,access-token))
+               (accept-language . ((2 . ,(G_ "accept-language-header|en-us"))
+                                   (1 . "en-us")))
                ,@headers)))
         (receive (response body)
             (apply (p:anonymous-http-request) uri