01/09: gnu-maintenance: Honor 'upstream-name' property in GNU updater.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit b03218d5326ba6fbb59d9425fb06a8aee9ed73a4
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 27 23:20:59 2017 +0100

    gnu-maintenance: Honor 'upstream-name' property in GNU updater.
    
    * guix/gnu-maintenance.scm (gnu-package?): Honor the 'usptream-name'
    property of PACKAGE.
    (ftp-server/directory): Likewise.
---
 guix/gnu-maintenance.scm |   14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 789724c..499967e 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -195,7 +195,9 @@ network to check in GNU's database."
 
        (or (gnu-home-page? package)
            (let ((url  (and=> (package-source package) origin-uri))
-                 (name (package-name package)))
+                 (name (or (assq-ref (package-properties package)
+                                     'upstream-name)
+                           (package-name package))))
              (case (and (string? url) (mirror-type url))
                ((gnu) #t)
                ((non-gnu) #f)
@@ -210,10 +212,12 @@ network to check in GNU's database."
 
 (define (ftp-server/directory package)
   "Return the FTP server and directory where PACKAGE's tarball are stored."
-  (values (or (assoc-ref (package-properties package) 'ftp-server)
-              "ftp.gnu.org")
-          (or (assoc-ref (package-properties package) 'ftp-directory)
-              (string-append "/gnu/" (package-name package)))))
+  (let ((name (or (assq-ref (package-properties package) 'upstream-name)
+                  (package-name package))))
+    (values (or (assoc-ref (package-properties package) 'ftp-server)
+                "ftp.gnu.org")
+            (or (assoc-ref (package-properties package) 'ftp-directory)
+                (string-append "/gnu/" name)))))
 
 (define (sans-extension tarball)
   "Return TARBALL without its .tar.* or .zip extension."