Export a JSON API that is compatible with SRFI-180

SRFI-180 represents JSON objects as alists from symbols to values,
while guile-json represents them as alists from strings to values.

Since alists are everywhere in the API, we need them to be as standard
as possible. So, we need them in SRFI-180 format.

2 files changed, 32 insertions, 26 deletions

diff --git a/po/fr.po b/po/fr.po
index b27cff8..f075033 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -126,62 +126,63 @@ msgstr "Utilisation : generate-random [NOMBRE D'OCTETS]\n"
 msgid "Usage: generate-key [NUMBER OF BITS | CURVE]\n"
 msgstr "Utilisation : generate-key [NOMBRE DE BITS | COURBE]\n"
 
-#: src/scm/webid-oidc/errors.scm:35
+#: src/scm/webid-oidc/errors.scm:45
 msgid "that’s how it is"
 msgstr "c’est comme ça"
 
-#: src/scm/webid-oidc/errors.scm:40
+#: src/scm/webid-oidc/errors.scm:50
 #, scheme-format
 msgid "the value ~s is not a base64 string (because ~a)"
 msgstr "la valeur ~s n’est pas une chaîne base64 (parce que ~a)"
 
-#: src/scm/webid-oidc/errors.scm:45
+#: src/scm/webid-oidc/errors.scm:53
+#, scheme-format
+msgid "the value ~s is not JSON (because ~a)"
+msgstr "la valeur ~s n’est pas du JSON (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:58
 msgid "that’s it"
 msgstr "c’est tout"
 
-#: src/scm/webid-oidc/errors.scm:49
+#: src/scm/webid-oidc/errors.scm:62
 #, scheme-format
 msgid "~a and ~a"
 msgstr "~a et ~a"
 
-#: src/scm/webid-oidc/errors.scm:52
+#: src/scm/webid-oidc/errors.scm:65
 #, scheme-format
 msgid "~a, ~a"
 msgstr "~a, ~a"
 
-#: src/scm/webid-oidc/errors.scm:56
+#: src/scm/webid-oidc/errors.scm:69
 msgid "there is an undefined variable"
 msgstr "il y a une variable non définie"
 
-#: src/scm/webid-oidc/errors.scm:58
+#: src/scm/webid-oidc/errors.scm:71
 #, scheme-format
 msgid "the origin is ~a"
 msgstr "l’origine est ~a"
 
-#: src/scm/webid-oidc/errors.scm:61
+#: src/scm/webid-oidc/errors.scm:74
 #, scheme-format
 msgid "a message is attached: ~a"
 msgstr "un message est attaché : ~a"
 
-#: src/scm/webid-oidc/errors.scm:64
+#: src/scm/webid-oidc/errors.scm:77
 #, scheme-format
 msgid "the values ~s are problematic"
 msgstr "les valeurs ~s sont problématiques"
 
-#: src/scm/webid-oidc/errors.scm:67
+#: src/scm/webid-oidc/errors.scm:80
 msgid "there is a kind and args"
 msgstr "il y a un type et des arguments"
 
-#: src/scm/webid-oidc/errors.scm:69
+#: src/scm/webid-oidc/errors.scm:82
 #, scheme-format
 msgid "Unhandled exception type ~a."
 msgstr "Type d’exception non pris en charge ~a."
 
 #, scheme-format
-#~ msgid "the value ~s is not JSON (because ~a)"
-#~ msgstr "la valeur ~s n’est pas du JSON (parce que ~a)"
-
-#, scheme-format
 #~ msgid "the value ~s is not Turtle (because ~a)"
 #~ msgstr "la valeur ~s n’est pas du Turtle (parce que ~a)"
 
diff --git a/po/webid-oidc.pot b/po/webid-oidc.pot
index ee78ff7..16dcfab 100644
--- a/po/webid-oidc.pot
+++ b/po/webid-oidc.pot
@@ -122,53 +122,58 @@ msgstr ""
 msgid "Usage: generate-key [NUMBER OF BITS | CURVE]\n"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:35
+#: src/scm/webid-oidc/errors.scm:45
 msgid "that’s how it is"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:40
+#: src/scm/webid-oidc/errors.scm:50
 #, scheme-format
 msgid "the value ~s is not a base64 string (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:45
+#: src/scm/webid-oidc/errors.scm:53
+#, scheme-format
+msgid "the value ~s is not JSON (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:58
 msgid "that’s it"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:49
+#: src/scm/webid-oidc/errors.scm:62
 #, scheme-format
 msgid "~a and ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:52
+#: src/scm/webid-oidc/errors.scm:65
 #, scheme-format
 msgid "~a, ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:56
+#: src/scm/webid-oidc/errors.scm:69
 msgid "there is an undefined variable"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:58
+#: src/scm/webid-oidc/errors.scm:71
 #, scheme-format
 msgid "the origin is ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:61
+#: src/scm/webid-oidc/errors.scm:74
 #, scheme-format
 msgid "a message is attached: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:64
+#: src/scm/webid-oidc/errors.scm:77
 #, scheme-format
 msgid "the values ~s are problematic"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:67
+#: src/scm/webid-oidc/errors.scm:80
 msgid "there is a kind and args"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:69
+#: src/scm/webid-oidc/errors.scm:82
 #, scheme-format
 msgid "Unhandled exception type ~a."
 msgstr ""