mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-12 14:16:55 -05:00
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.
This commit is contained in:
parent
b03218d532
commit
2e2cf9a3bd
1 changed files with 7 additions and 2 deletions
|
@ -448,8 +448,10 @@ (define (gnu-package-name->name+version name+version)
|
|||
(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 @@ (define matching-uri?
|
|||
(_ #f)))
|
||||
(_ #f))))
|
||||
|
||||
(define gnu-hosted?
|
||||
(url-prefix-predicate "mirror://gnu/"))
|
||||
|
||||
(define gnome-package?
|
||||
(url-prefix-predicate "mirror://gnome/"))
|
||||
|
||||
|
|
Loading…
Reference in a new issue