[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: website: packages.json: Add "cpe_name" and "cpe_version".
From: |
Ludovic Courtès |
Subject: |
01/04: website: packages.json: Add "cpe_name" and "cpe_version". |
Date: |
Tue, 27 Aug 2019 16:13:52 -0400 (EDT) |
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