diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-12-03 21:33:55 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-12-03 21:33:55 +0100 |
| commit | 4d5f0bae3edf36d2345265997ed6971c040eca47 (patch) | |
| tree | 119b8fdd1f2d8dc16c000b476da3168547d61570 | |
| parent | f5a345adeb3259fb844fd6d07b4c96939587a018 (diff) | |
gnu-maintenance: Ignore "redirect" blurbs.
* guix/gnu-maintenance.scm (official-gnu-packages)[official-description]:
Return #f for blurbs that start with "redirect ".
| -rw-r--r-- | guix/gnu-maintenance.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 3dd8874985..98432a69ce 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -127,7 +127,18 @@ (and=> (find (lambda (alist) (equal? name (assoc-ref alist "package"))) 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) (let ((name (assoc-ref alist "package"))) |