[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/72: gnu-maintenance: Extract url->links procedure.
From: |
guix-commits |
Subject: |
06/72: gnu-maintenance: Extract url->links procedure. |
Date: |
Tue, 15 Aug 2023 20:42:21 -0400 (EDT) |
apteryx pushed a commit to branch qt-updates
in repository guix.
commit ae444e17b3e5983bbc44619113d2cc0435e88473
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Wed Aug 9 22:40:01 2023 -0400
gnu-maintenance: Extract url->links procedure.
* guix/gnu-maintenance.scm (url->links): New procedure.
(import-html-release): Use it.
---
guix/gnu-maintenance.scm | 19 ++++++++++++-------
1 file changed, 12 insertions(+), 7 deletions(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index a314923d3b..2e0fc3e8ab 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -483,6 +483,14 @@ hosted on ftp.gnu.org, or not under that name (this is the
case for
(_
links))))
+(define (url->links url)
+ "Return the unique links on the HTML page accessible at URL."
+ (let* ((uri (string->uri url))
+ (port (http-fetch/cached uri #:ttl 3600))
+ (sxml (html->sxml port)))
+ (close-port port)
+ (delete-duplicates (html-links sxml))))
+
(define* (import-html-release base-url package
#:key
(version #f)
@@ -499,12 +507,10 @@ When FILE->SIGNATURE is omitted or #f, guess the detached
signature file name,
if any. Otherwise, FILE->SIGNATURE must be a procedure; it is passed a source
file URL and must return the corresponding signature URL, or #f it signatures
are unavailable."
- (let* ((uri (string->uri (if (string-null? directory)
- base-url
- (string-append base-url directory "/"))))
- (port (http-fetch/cached uri #:ttl 3600))
- (sxml (html->sxml port))
- (links (delete-duplicates (html-links sxml))))
+ (let* ((url (if (string-null? directory)
+ base-url
+ (string-append base-url directory "/")))
+ (links (url->links url)))
(define (file->signature/guess url)
(let ((base (basename url)))
(any (lambda (link)
@@ -562,7 +568,6 @@ are unavailable."
(define candidates
(filter-map url->release links))
- (close-port port)
(match candidates
(() #f)
((first . _)
- branch qt-updates created (now e3b7f4e95c), guix-commits, 2023/08/15
- 01/72: gnu-maintenance: Make base-url argument of import-html-release required., guix-commits, 2023/08/15
- 03/72: gnu: qt: Streamline qt-urls., guix-commits, 2023/08/15
- 04/72: gnu: qt-creator: Use mirror://qt for source URI., guix-commits, 2023/08/15
- 02/72: download: Add mirrors for Qt., guix-commits, 2023/08/15
- 08/72: gnu-maintenance: Accept package object in 'import-html-release' procedure., guix-commits, 2023/08/15
- 11/72: gnu-maintenance: Add support to rewrite version in URL path., guix-commits, 2023/08/15
- 13/72: gnu-maintenance: Consider Qt source tarballs as "release files"., guix-commits, 2023/08/15
- 09/72: gnu-maintenance: Document nested procedures in 'import-html-release'., guix-commits, 2023/08/15
- 07/72: gnu-maintenance: Fix indentation., guix-commits, 2023/08/15
- 06/72: gnu-maintenance: Extract url->links procedure.,
guix-commits <=
- 27/72: gnu: qtshadertools: Update to 6.5.2., guix-commits, 2023/08/15
- 31/72: gnu: qtlottie: Update to 6.5.2., guix-commits, 2023/08/15
- 25/72: gnu: qtdeclarative: Update to 6.5.2., guix-commits, 2023/08/15
- 40/72: gnu: qtbase-5: Update to 5.15.10., guix-commits, 2023/08/15
- 41/72: gnu: qt3d-5: Update to 5.15.10., guix-commits, 2023/08/15
- 15/72: gnu: qtdeclarative: Disable QML cache to avoid stale cache issues., guix-commits, 2023/08/15
- 24/72: gnu: Add qtlanguageserver., guix-commits, 2023/08/15
- 30/72: gnu: qtwebchannel: Update to 6.5.2., guix-commits, 2023/08/15
- 26/72: gnu: qtwebsockets: Update to 6.5.2., guix-commits, 2023/08/15
- 32/72: gnu: qttools: Update to 6.5.2., guix-commits, 2023/08/15