From: Xinglu Chen <public@yoctocell.xyz>
To: 53818@debbugs.gnu.org
Cc: Maxime Devos <maximedevos@telenet.be>
Subject: [bug#53818] [PATCH v3 4/7] import: json: Make 'json-fetch' take '#:http-fetch' argument.
Date: Wed, 09 Feb 2022 14:25:01 +0100 [thread overview]
Message-ID: <f0eec52af67aa71aa686ec14d5a49b621e95c779.1644412701.git.public@yoctocell.xyz> (raw)
In-Reply-To: <cover.1644412701.git.public@yoctocell.xyz>
This will let users of the 'json-fetch' procedure use a custom procedure for
fetching the URL, e.g., 'http-fetch/cached'.
* json.scm (json-fetch): Add ‘#:http-fetch’ keyword argument.
Suggested-by: Maxime Devos <maximedevos@telenet.be>
---
guix/import/json.scm | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/guix/import/json.scm b/guix/import/json.scm
index 0c98bb25b8..de7ed60e8d 100644
--- a/guix/import/json.scm
+++ b/guix/import/json.scm
@@ -3,6 +3,7 @@
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2022 Xinglu Chen <public@yoctocell.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -37,11 +38,13 @@ (define-module (guix import json)
(define* (json-fetch url
;; Note: many websites returns 403 if we omit a
;; 'User-Agent' header.
- #:key (headers `((user-agent . "GNU Guile")
- (Accept . "application/json"))))
+ #:key
+ (headers `((user-agent . "GNU Guile")
+ (Accept . "application/json")))
+ (http-fetch http-fetch))
"Return a representation of the JSON resource URL (a list or hash table), or
#f if URL returns 403 or 404. HEADERS is a list of HTTP headers to pass in
-the query."
+the query. HTTP-FETCH is the procedure that is used to fetch the JSON data from URL. It should take the URL as an argument and HEADERS as a keyword argument, and return an input port for the JSON data."
(guard (c ((and (http-get-error? c)
(let ((error (http-get-error-code c)))
(or (= 403 error)
--
2.34.1
next prev parent reply other threads:[~2022-02-09 14:02 UTC|newest]
Thread overview: 60+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-02-06 11:50 [bug#53818] [PATCH 0/3] Add Repology updater Xinglu Chen
2022-02-06 12:41 ` Maxime Devos
2022-02-06 15:17 ` Xinglu Chen
2022-02-06 13:00 ` [bug#53818] [PATCH 1/3] git-download: Export <git-reference> Xinglu Chen
2022-02-06 13:00 ` [bug#53818] [PATCH 2/3] import: Add 'repology' updater Xinglu Chen
2022-02-06 13:11 ` Maxime Devos
2022-02-06 15:18 ` Xinglu Chen
2022-02-06 13:13 ` Maxime Devos
2022-02-06 15:26 ` Xinglu Chen
2022-02-06 13:13 ` Maxime Devos
2022-02-06 13:17 ` Maxime Devos
2022-02-06 15:32 ` Xinglu Chen
2022-02-06 13:18 ` Maxime Devos
2022-02-06 15:34 ` Xinglu Chen
2022-02-06 15:36 ` Maxime Devos
2022-02-06 13:19 ` Maxime Devos
2022-02-06 13:23 ` Maxime Devos
2022-02-06 15:41 ` Xinglu Chen
2022-02-06 13:23 ` Maxime Devos
2022-02-06 15:42 ` Xinglu Chen
2022-02-06 13:00 ` [bug#53818] [PATCH 3/3] gnu: xorg-server-xwayland: Set 'repology-name' property Xinglu Chen
2022-02-06 14:15 ` Maxime Devos
2022-02-07 9:06 ` [bug#53818] [PATCH v2 0/7] Add Repology updater Xinglu Chen
2022-02-07 9:06 ` [bug#53818] [PATCH v2 1/7] upstream: Sort list of updaters Xinglu Chen
2022-02-07 9:06 ` [bug#53818] [PATCH v2 2/7] http-client: Make 'http-fetch/cached' take '#:headers' argument Xinglu Chen
2022-02-07 9:06 ` [bug#53818] [PATCH v2 3/7] http-client: 'http-fetch/cached' accepts a string or a <uri> Xinglu Chen
2022-02-07 9:07 ` [bug#53818] [PATCH v2 4/7] import: json: Make 'json-fetch' take '#:cached?' argument Xinglu Chen
2022-02-07 9:44 ` Maxime Devos
2022-02-07 9:07 ` [bug#53818] [PATCH v2 5/7] import: Add 'repology' updater Xinglu Chen
2022-02-07 9:45 ` Maxime Devos
2022-02-07 9:50 ` Maxime Devos
2022-02-08 12:29 ` Xinglu Chen
2022-02-08 12:49 ` Maxime Devos
2022-02-09 12:54 ` Xinglu Chen
2022-02-07 9:07 ` [bug#53818] [PATCH v2 6/7] gnu: xorg-server-xwayland: Set 'repology-name' property Xinglu Chen
2022-02-07 9:07 ` [bug#53818] [PATCH v2 7/7] gnu: xorg-server-xwayland: Prepare for cross-compilation Xinglu Chen
2022-02-09 13:22 ` [bug#53818] [PATCH v3 0/7] Add Repology updater Xinglu Chen
2022-02-09 13:24 ` [bug#53818] [PATCH v3 1/7] upstream: Sort list of updaters Xinglu Chen
2022-02-09 13:24 ` [bug#53818] [PATCH v3 2/7] http-client: Make 'http-fetch/cached' take '#:headers' argument Xinglu Chen
2022-02-09 13:24 ` [bug#53818] [PATCH v3 3/7] http-client: 'http-fetch/cached' accepts a string or a <uri> Xinglu Chen
2022-02-09 13:25 ` Xinglu Chen [this message]
2022-02-09 13:25 ` [bug#53818] [PATCH v3 5/7] import: Add 'repology' updater Xinglu Chen
2022-02-09 13:25 ` [bug#53818] [PATCH v3 6/7] gnu: xorg-server-xwayland: Set 'repology-name' property Xinglu Chen
2022-02-09 13:25 ` [bug#53818] [PATCH v3 7/7] gnu: xorg-server-xwayland: Prepare for cross-compilation Xinglu Chen
2022-02-08 22:59 ` [bug#53818] [PATCH 0/3] Add Repology updater Ludovic Courtès
2022-02-09 12:52 ` Xinglu Chen
2022-02-09 14:29 ` Nicolas Goaziou
2022-02-10 18:17 ` Xinglu Chen
2022-02-10 19:30 ` Nicolas Goaziou
2022-02-10 20:49 ` Ludovic Courtès
2022-02-14 10:40 ` Nicolas Goaziou
2022-02-14 16:07 ` Maxime Devos
2022-02-14 16:58 ` Ludovic Courtès
2022-02-14 18:42 ` Nicolas Goaziou
2022-02-15 9:57 ` [bug#53818] Improving updaters and ‘guix refresh’ Ludovic Courtès
2022-02-16 12:43 ` Nicolas Goaziou
2022-02-17 10:35 ` Ludovic Courtès
2022-02-17 11:17 ` zimoun
2022-02-18 10:28 ` Nicolas Goaziou
2022-03-03 21:28 ` Ludovic Courtès
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=f0eec52af67aa71aa686ec14d5a49b621e95c779.1644412701.git.public@yoctocell.xyz \
--to=public@yoctocell.xyz \
--cc=53818@debbugs.gnu.org \
--cc=maximedevos@telenet.be \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.