Add a strip function

2 files changed, 56 insertions, 38 deletions

diff --git a/po/fr.po b/po/fr.po
index f075033..742edbb 100644
--- a/po/fr.po
+++ b/po/fr.po
@@ -2,7 +2,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc 0.0.0\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-06-05 16:10+0200\n"
+"POT-Creation-Date: 2021-06-05 16:11+0200\n"
 "PO-Revision-Date: 2021-06-05 11:07+0200\n"
 "Last-Translator: Vivien Kraus <vivien@planete-kraus.eu>\n"
 "Language-Team: French <vivien@planete-kraus.eu>\n"
@@ -126,58 +126,73 @@ 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:45
+#: src/scm/webid-oidc/errors.scm:65
 msgid "that’s how it is"
 msgstr "c’est comme ça"
 
-#: src/scm/webid-oidc/errors.scm:50
+#: src/scm/webid-oidc/errors.scm:70
 #, 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:53
+#: src/scm/webid-oidc/errors.scm:73
 #, 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
+#: src/scm/webid-oidc/errors.scm:76
+#, scheme-format
+msgid "the value ~s does not identify an elleptic curve"
+msgstr "la valeur ~s n’identifie pas une courbe elliptique"
+
+#: src/scm/webid-oidc/errors.scm:81
+#, scheme-format
+msgid "the value ~s does not identify a JWK (because ~a)"
+msgstr "la valeur ~s n’identifie pas une JWK (parce que ~a)"
+
+#: src/scm/webid-oidc/errors.scm:83
+#, scheme-format
+msgid "the value ~s does not identify a JWK"
+msgstr "la valeur ~s n’identifie pas une JWK"
+
+#: src/scm/webid-oidc/errors.scm:88
 msgid "that’s it"
 msgstr "c’est tout"
 
-#: src/scm/webid-oidc/errors.scm:62
+#: src/scm/webid-oidc/errors.scm:92
 #, scheme-format
 msgid "~a and ~a"
 msgstr "~a et ~a"
 
-#: src/scm/webid-oidc/errors.scm:65
+#: src/scm/webid-oidc/errors.scm:95
 #, scheme-format
 msgid "~a, ~a"
 msgstr "~a, ~a"
 
-#: src/scm/webid-oidc/errors.scm:69
+#: src/scm/webid-oidc/errors.scm:99
 msgid "there is an undefined variable"
 msgstr "il y a une variable non définie"
 
-#: src/scm/webid-oidc/errors.scm:71
+#: src/scm/webid-oidc/errors.scm:101
 #, scheme-format
 msgid "the origin is ~a"
 msgstr "l’origine est ~a"
 
-#: src/scm/webid-oidc/errors.scm:74
+#: src/scm/webid-oidc/errors.scm:104
 #, scheme-format
 msgid "a message is attached: ~a"
 msgstr "un message est attaché : ~a"
 
-#: src/scm/webid-oidc/errors.scm:77
+#: src/scm/webid-oidc/errors.scm:107
 #, scheme-format
 msgid "the values ~s are problematic"
 msgstr "les valeurs ~s sont problématiques"
 
-#: src/scm/webid-oidc/errors.scm:80
+#: src/scm/webid-oidc/errors.scm:110
 msgid "there is a kind and args"
 msgstr "il y a un type et des arguments"
 
-#: src/scm/webid-oidc/errors.scm:82
+#: src/scm/webid-oidc/errors.scm:112
 #, scheme-format
 msgid "Unhandled exception type ~a."
 msgstr "Type d’exception non pris en charge ~a."
@@ -187,18 +202,6 @@ msgstr "Type d’exception non pris en charge ~a."
 #~ msgstr "la valeur ~s n’est pas du Turtle (parce que ~a)"
 
 #, scheme-format
-#~ msgid "the value ~s does not identify an elleptic curve"
-#~ msgstr "la valeur ~s n’identifie pas une courbe elliptique"
-
-#, scheme-format
-#~ msgid "the value ~s does not identify a JWK (because ~a)"
-#~ msgstr "la valeur ~s n’identifie pas une JWK (parce que ~a)"
-
-#, scheme-format
-#~ msgid "the value ~s does not identify a JWK"
-#~ msgstr "la valeur ~s n’identifie pas une JWK"
-
-#, scheme-format
 #~ msgid "the value ~s does not identify a public JWK (because ~a)"
 #~ msgstr "la valeur ~s n’identifie pas une JWK publique (parce que ~a)"
 
diff --git a/po/webid-oidc.pot b/po/webid-oidc.pot
index 16dcfab..21b0d57 100644
--- a/po/webid-oidc.pot
+++ b/po/webid-oidc.pot
@@ -8,7 +8,7 @@ msgid ""
 msgstr ""
 "Project-Id-Version: webid-oidc SNAPSHOT\n"
 "Report-Msgid-Bugs-To: vivien@planete-kraus.eu\n"
-"POT-Creation-Date: 2021-06-05 16:10+0200\n"
+"POT-Creation-Date: 2021-06-05 16:11+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"
@@ -122,58 +122,73 @@ msgstr ""
 msgid "Usage: generate-key [NUMBER OF BITS | CURVE]\n"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:45
+#: src/scm/webid-oidc/errors.scm:65
 msgid "that’s how it is"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:50
+#: src/scm/webid-oidc/errors.scm:70
 #, scheme-format
 msgid "the value ~s is not a base64 string (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:53
+#: src/scm/webid-oidc/errors.scm:73
 #, scheme-format
 msgid "the value ~s is not JSON (because ~a)"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:58
+#: src/scm/webid-oidc/errors.scm:76
+#, scheme-format
+msgid "the value ~s does not identify an elleptic curve"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:81
+#, scheme-format
+msgid "the value ~s does not identify a JWK (because ~a)"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:83
+#, scheme-format
+msgid "the value ~s does not identify a JWK"
+msgstr ""
+
+#: src/scm/webid-oidc/errors.scm:88
 msgid "that’s it"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:62
+#: src/scm/webid-oidc/errors.scm:92
 #, scheme-format
 msgid "~a and ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:65
+#: src/scm/webid-oidc/errors.scm:95
 #, scheme-format
 msgid "~a, ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:69
+#: src/scm/webid-oidc/errors.scm:99
 msgid "there is an undefined variable"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:71
+#: src/scm/webid-oidc/errors.scm:101
 #, scheme-format
 msgid "the origin is ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:74
+#: src/scm/webid-oidc/errors.scm:104
 #, scheme-format
 msgid "a message is attached: ~a"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:77
+#: src/scm/webid-oidc/errors.scm:107
 #, scheme-format
 msgid "the values ~s are problematic"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:80
+#: src/scm/webid-oidc/errors.scm:110
 msgid "there is a kind and args"
 msgstr ""
 
-#: src/scm/webid-oidc/errors.scm:82
+#: src/scm/webid-oidc/errors.scm:112
 #, scheme-format
 msgid "Unhandled exception type ~a."
 msgstr ""