summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-12-03 21:33:55 +0100
committerLudovic Courtès <ludo@gnu.org>2013-12-03 21:33:55 +0100
commit4d5f0bae3edf36d2345265997ed6971c040eca47 (patch)
tree119b8fdd1f2d8dc16c000b476da3168547d61570
parentf5a345adeb3259fb844fd6d07b4c96939587a018 (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.scm13
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")))