02/09: gnu-maintenance: GNU updater handles gnu.org-hosted Emacs packages.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 2e2cf9a3bd9f95c4d19f9acf9fd6c88dc48e7291
Author: Ludovic Courtès <address@hidden>
Date:   Fri Jan 27 23:24:21 2017 +0100

    gnu-maintenance: GNU updater handles gnu.org-hosted Emacs packages.
    
    * guix/gnu-maintenance.scm (pure-gnu-package?): If an "emacs-" package
    matches 'gnu-hosted?', return true.
    (gnu-hosted?): New procedure.
---
 guix/gnu-maintenance.scm |    9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 499967e..8a37ce5 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -448,8 +448,10 @@ hosted on ftp.gnu.org, or not under that name (this is the 
case for
 (define (pure-gnu-package? package)
   "Return true if PACKAGE is a non-Emacs and non-GNOME GNU package.  This
 excludes AucTeX, for instance, whose releases are now uploaded to
-elpa.gnu.org, and all the GNOME packages."
-  (and (not (string-prefix? "emacs-" (package-name package)))
+elpa.gnu.org, and all the GNOME packages; EMMS is included though, because its
+releases are on gnu.org."
+  (and (or (not (string-prefix? "emacs-" (package-name package)))
+           (gnu-hosted? package))
        (not (gnome-package? package))
        (gnu-package? package)))
 
@@ -471,6 +473,9 @@ source URLs starts with PREFIX."
          (_                 #f)))
       (_ #f))))
 
+(define gnu-hosted?
+  (url-prefix-predicate "mirror://gnu/"))
+
 (define gnome-package?
   (url-prefix-predicate "mirror://gnome/"))