[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

02/09: gnu-maintenance: GNU updater handles Emacs package

From: Ludovic Courtès
Subject: 02/09: gnu-maintenance: GNU updater handles Emacs packages.
Date: Fri, 27 Jan 2017 23:38:49 +0000 (UTC)

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 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, 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, and all the GNOME packages."
-  (and (not (string-prefix? "emacs-" (package-name package))), and all the GNOME packages; EMMS is included though, because its
+releases are on"
+  (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/"))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]