05/08: Implement the JSON response for the package derivations page

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 7a7dedfa1bf0d623d9a7cb8fc509c85caa3b9fdd
Author: Christopher Baines <address@hidden>
AuthorDate: Fri Apr 24 10:28:44 2020 +0100

    Implement the JSON response for the package derivations page
---
 guix-data-service/web/revision/controller.scm | 21 ++++++++++++++++++++-
 guix-data-service/web/revision/html.scm       | 13 +++++++++++++
 2 files changed, 33 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/revision/controller.scm 
b/guix-data-service/web/revision/controller.scm
index 25b7604..9f8592a 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -767,7 +767,26 @@
                mime-types)
           ((application/json)
            (render-json
-            `()))
+            `((derivations . ,(list->vector
+                               (map (match-lambda
+                                      ((derivation system target)
+                                       `((derivation . ,derivation)
+                                         ,@(if (member "system" fields)
+                                               `((system . ,system))
+                                               '())
+                                         ,@(if (member "target" fields)
+                                               `((target . ,target))
+                                               '())))
+                                      ((derivation system target builds)
+                                       `((derivation . ,derivation)
+                                         ,@(if (member "system" fields)
+                                               `((system . ,system))
+                                               '())
+                                         ,@(if (member "target" fields)
+                                               `((target . ,target))
+                                               '())
+                                         (builds . ,builds))))
+                                    derivations))))))
           (else
            (render-html
             #:sxml (view-revision-package-derivations
diff --git a/guix-data-service/web/revision/html.scm 
b/guix-data-service/web/revision/html.scm
index 2d1b706..35b5782 100644
--- a/guix-data-service/web/revision/html.scm
+++ b/guix-data-service/web/revision/html.scm
@@ -1130,6 +1130,19 @@ figure {
       (div
        (@ (class "row"))
        (div
+        (@ (class "col-sm-12"))
+        (a (@ (class "btn btn-default btn-lg pull-right")
+              (href ,(let ((query-parameter-string
+                            (query-parameters->string query-parameters)))
+                       (string-append
+                        path-base ".json"
+                        (if (string-null? query-parameter-string)
+                            ""
+                            (string-append "?" query-parameter-string))))))
+           "View JSON")))
+      (div
+       (@ (class "row"))
+       (div
         (@ (class "col-md-12"))
         (h1 "Package derivations")
         (p "Showing " ,(length derivations) " results")