diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 22:42:55 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-04 23:21:06 +0200 |
| commit | 99e06ec6d2e38abd28e2a3110676108de5700406 (patch) | |
| tree | a7deabea0cdaec3a5eb0ba38a2e441d43a2893e2 | |
| parent | 454527960e8a68191919397f225acec99b837c5e (diff) | |
gui: don’t create a thread for each http-request
| -rw-r--r-- | po/disfluid.pot | 6 | ||||
| -rw-r--r-- | po/fr.po | 6 | ||||
| -rw-r--r-- | src/scm/webid-oidc/client/gui.scm | 9 |
3 files changed, 14 insertions, 7 deletions
diff --git a/po/disfluid.pot b/po/disfluid.pot index 16660be..bfd8bbc 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:15+0200\n" +"POT-Creation-Date: 2021-10-04 23:19+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" @@ -637,12 +637,12 @@ msgid "" "pair.." msgstr "" -#: src/scm/webid-oidc/client/gui.scm:61 +#: src/scm/webid-oidc/client/gui.scm:63 #, scheme-format msgid "The client changed: it is now ~a.\n" msgstr "" -#: src/scm/webid-oidc/client/gui.scm:66 +#: src/scm/webid-oidc/client/gui.scm:68 #, scheme-format msgid "The accounts changed: the main account is ~a, and the others are ~a.\n" msgstr "" @@ -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-10-04 23:15+0200\n" +"POT-Creation-Date: 2021-10-04 23:19+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" @@ -690,12 +690,12 @@ msgstr "" "L’ID de client et l’URI de redirection doivent être des URIs, et la paire de " "clés doit être une paire de clés." -#: src/scm/webid-oidc/client/gui.scm:61 +#: src/scm/webid-oidc/client/gui.scm:63 #, scheme-format msgid "The client changed: it is now ~a.\n" msgstr "Le client a changé : c’est maintenant ~a.\n" -#: src/scm/webid-oidc/client/gui.scm:66 +#: src/scm/webid-oidc/client/gui.scm:68 #, scheme-format msgid "The accounts changed: the main account is ~a, and the others are ~a.\n" msgstr "" diff --git a/src/scm/webid-oidc/client/gui.scm b/src/scm/webid-oidc/client/gui.scm index be557bd..29bf556 100644 --- a/src/scm/webid-oidc/client/gui.scm +++ b/src/scm/webid-oidc/client/gui.scm @@ -37,6 +37,8 @@ #:use-module (webid-oidc client accounts) #:use-module ((webid-oidc client gui settings) #:prefix settings:) #:use-module ((webid-oidc client gui application) #:prefix app:) + #:use-module ((webid-oidc cache) #:prefix cache:) + #:use-module ((webid-oidc catalog) #:prefix catalog:) #:use-module (web uri) #:use-module (web response) #:use-module (rnrs bytevectors) @@ -67,4 +69,9 @@ main other))) (define (main) - (run app:application (command-line))) + (parameterize ((p:anonymous-http-request (@ (web client) http-request))) + (cache:use-cache + (lambda () + (catalog:use-catalog + (lambda () + (run app:application (command-line)))))))) |