04/13: gnu-maintenance: Use (htmlprag) for 'latest-html-release'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 71f6acd28df098fa600861df49347a315ffc7bb5
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Mar 13 12:39:34 2021 +0100

    gnu-maintenance: Use (htmlprag) for 'latest-html-release'.
    
    * guix/gnu-maintenance.scm (html->sxml): Remove.  Autoload (htmlprag)
    instead.
    * doc/guix.texi (Requirements): Mention 'guix refresh' for the Guile-Lib
    dependency.
---
 doc/guix.texi            |  3 ++-
 guix/gnu-maintenance.scm | 13 +------------
 2 files changed, 3 insertions(+), 13 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 7882937..51cafbc 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -865,7 +865,8 @@ the @code{crate} importer (@pxref{Invoking guix import}).
 
 @item
 @uref{https://www.nongnu.org/guile-lib/doc/ref/htmlprag/, Guile-Lib} for
-the @code{go} importer (@pxref{Invoking guix import}).
+the @code{go} importer (@pxref{Invoking guix import}) and for some of
+the ``updaters'' (@pxref{Invoking guix refresh}).
 
 @item
 When @url{http://www.bzip.org, libbz2} is available,
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 9e393d1..febed57 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -38,6 +38,7 @@
   #:use-module (guix upstream)
   #:use-module (guix packages)
   #:autoload   (zlib) (call-with-gzip-input-port)
+  #:autoload   (htmlprag) (html->sxml)            ;from Guile-Lib
   #:export (gnu-package-name
             gnu-package-mundane-name
             gnu-package-copyright-holder
@@ -447,18 +448,6 @@ hosted on ftp.gnu.org, or not under that name (this is the 
case for
 ;;; Latest HTTP release.
 ;;;
 
-(define (html->sxml port)
-  "Read HTML from PORT and return the corresponding SXML tree."
-  (let ((str (get-string-all port)))
-    (catch #t
-      (lambda ()
-        ;; XXX: This is the poor developer's HTML-to-XML converter.  It's good
-        ;; enough for directory listings at <https://kernel.org/pub> but if
-        ;; needed we could resort to (htmlprag) from Guile-Lib.
-        (call-with-input-string (string-replace-substring str "<hr>" "<hr />")
-          xml->sxml))
-      (const '(html)))))                          ;parse error
-
 (define (html-links sxml)
   "Return the list of links found in SXML, the SXML tree of an HTML page."
   (let loop ((sxml sxml)