diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-08-27 21:36:27 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-08-27 22:10:45 +0200 |
| commit | 63a4def084c62646173ba70db73cb82dbad49343 (patch) | |
| tree | 2a29a874c7939c04f482b46782445e76da447045 | |
| parent | website: Build against the latest Guix. (diff) | |
| download | guix-artwork-63a4def084c62646173ba70db73cb82dbad49343.tar.gz | |
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.
| -rw-r--r-- | website/apps/packages/builder.scm | 8 |
1 files changed, 8 insertions, 0 deletions
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 |