01/04: website: packages.json: Add "cpe_name" and "cpe_version".

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 63a4def084c62646173ba70db73cb82dbad49343
Author: Ludovic Courtès <address@hidden>
Date:   Tue Aug 27 21:36:27 2019 +0200

    website: packages.json: Add "cpe_name" and "cpe_version".
    
    * website/apps/packages/builder.scm (packages-json-builder)[package->json]:
    Add "cpe-name" and "cpe-version" when they're available.  This is
    similar to what we had in 3ef3b0445241df1dc47c3717e63ffcf6267b3c70.
---
 website/apps/packages/builder.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/website/apps/packages/builder.scm 
b/website/apps/packages/builder.scm
index 00e177c..cf296b0 100644
--- a/website/apps/packages/builder.scm
+++ b/website/apps/packages/builder.scm
@@ -82,10 +82,18 @@
 (define (packages-json-builder)
   "Return a JSON page listing all packages."
   (define (package->json package)
+    (define cpe-name
+      (assoc-ref (package-properties package) 'cpe-name))
+    (define cpe-version
+      (assoc-ref (package-properties package) 'cpe-version))
+
     `(("name"     . ,(package-name package))
       ("version"  . ,(package-version package))
+      ,@(if cpe-name `(("cpe_name" . ,cpe-name)) '())
+      ,@(if cpe-version `(("cpe_version" . ,cpe-version)) '())
       ("synopsis" . ,(package-synopsis package))
       ("homepage" . ,(package-home-page package))))
+
   (make-page "packages.json"
                 (list->vector (map package->json (all-packages)))
              (lambda args