ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu-maintenance: Ignore "redirect" blurbs.

Browse source 
* guix/gnu-maintenance.scm (official-gnu-packages)[official-description]:
  Return #f for blurbs that start with "redirect ".
This commit is contained in:
Ludovic Courtès 2013-12-03 21:33:55 +01:00
parent f5a345adeb
commit 4d5f0bae3e
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
guix/gnu-maintenance.scm
View file

@ -127,7 +127,18 @@ (define official-description
(and=> (find (lambda (alist) (and=> (find (lambda (alist)
(equal? name (assoc-ref alist "package"))) (equal? name (assoc-ref alist "package")))
db) db)
(cut assoc-ref <> "blurb"))))) (lambda (record)
(let ((field (assoc-ref record "blurb")))
;; The upstream description file uses "redirect PACKAGE" as
;; a blurb in cases where the description of the two
;; packages should be considered the same (e.g., GTK+ has
;; "redirect gnome".) This is usually not acceptable for
;; us because we prefer to have distinct descriptions in
;; such cases. Thus, ignore the 'blurb' field when that
;; happens.
(and field
(not (string-prefix? "redirect " field))
field)))))))
(map (lambda (alist) (map (lambda (alist)
(let ((name (assoc-ref alist "package"))) (let ((name (assoc-ref alist "package")))