diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-01-27 23:24:21 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-01-28 00:38:20 +0100 |
| commit | 2e2cf9a3bd9f95c4d19f9acf9fd6c88dc48e7291 (patch) | |
| tree | 801114c71002d0aff23203e05e71f1d482a6be11 | |
| parent | b03218d5326ba6fbb59d9425fb06a8aee9ed73a4 (diff) | |
| download | gnu-guix-2e2cf9a3bd9f95c4d19f9acf9fd6c88dc48e7291.tar gnu-guix-2e2cf9a3bd9f95c4d19f9acf9fd6c88dc48e7291.tar.gz | |
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.
| -rw-r--r-- | guix/gnu-maintenance.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 499967eb89..8a37ce56e6 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/")) |