01/09: gnu-maintenance: 'generic-html' updates packages with the right property.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit b3679f2d10a3257fbbb016e01b4f553c137fd177
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Apr 4 15:40:39 2021 +0200

    gnu-maintenance: 'generic-html' updates packages with the right property.
    
    * guix/gnu-maintenance.scm (html-updatable-package?): Return true for
    packages with a 'release-monitoring-url' property.  This allows us to
    cater for packages with source fetched over, say, FTP, but with an HTML
    page to monitor.
---
 guix/gnu-maintenance.scm | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 4078e1f..eff26cc 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -706,14 +706,19 @@ GNOME packages; EMMS is included though, because its 
releases are on gnu.org."
                          "ftp.gnu.org" "download.savannah.gnu.org"
                          "pypi.org" "crates.io" "rubygems.org"
                          "bioconductor.org")))
-    (url-predicate (lambda (url)
-                     (match (string->uri url)
-                       (#f #f)
-                       (uri
-                        (let ((scheme (uri-scheme uri))
-                              (host   (uri-host uri)))
-                          (and (memq scheme '(http https))
-                               (not (member host hosting-sites))))))))))
+    (define http-url?
+      (url-predicate (lambda (url)
+                       (match (string->uri url)
+                         (#f #f)
+                         (uri
+                          (let ((scheme (uri-scheme uri))
+                                (host   (uri-host uri)))
+                            (and (memq scheme '(http https))
+                                 (not (member host hosting-sites)))))))))
+
+    (lambda (package)
+      (or (assoc-ref (package-properties package) 'release-monitoring-url)
+          (http-url? package)))))
 
 (define (latest-html-updatable-release package)
   "Return the latest release of PACKAGE.  Do that by crawling the HTML page of