me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Ludovic Courtès 2017-01-27 23:24:21 +01:00
parent b03218d532
commit 2e2cf9a3bd
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
guix/gnu-maintenance.scm
View File

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