~ruther/guix-local: snix: Prefer synopses from the Womb rather than from Nixpkgs.

f286f716344df693c392f6bdd902db07a9d91841 — Ludovic Courtès 13 years ago f775874

snix: Prefer synopses from the Womb rather than from Nixpkgs.

* guix/snix.scm (snix-derivation->guix-package): When NAME is
  in (official-gnu-packages), use this synopsis instead of the one from
  Nixpkgs.

patch browse .tar.gz

1 files changed, 11 insertions(+), 2 deletions(-)

M guix/snix.scm

M guix/snix.scm => guix/snix.scm +11 -2

@@ 34,6 34,7 @@
   #:use-module (guix utils)
   #:use-module (guix base32)
   #:use-module (guix config)
+  #:use-module (guix gnu-maintenance)
   #:export (open-nixpkgs
             xml->snix
             nixpkgs->guix-package))


@@ 435,8 436,16 @@ location of DERIVATION."
 
              (home-page ,(and=> (find-attribute-by-name "homepage" meta)
                                 attribute-value))
-             (synopsis ,(and=> (find-attribute-by-name "description" meta)
-                               attribute-value))
+             (synopsis
+              ;; For GNU packages, prefer the official synopsis.
+              ,(or (false-if-exception
+                    (and=> (find (lambda (gnu-package)
+                                   (equal? (gnu-package-name gnu-package)
+                                           name))
+                                 (official-gnu-packages))
+                           gnu-package-doc-summary))
+                   (and=> (find-attribute-by-name "description" meta)
+                          attribute-value)))
              (description
               ,(and=> (find-attribute-by-name "longDescription" meta)
                       attribute-value))