Add a simple package page

1 files changed, 21 insertions, 0 deletions

diff --git a/guix-qa-frontpage/package.scm b/guix-qa-frontpage/package.scm
new file mode 100644
index 0000000..9638ac4
--- /dev/null
+++ b/guix-qa-frontpage/package.scm
@@ -0,0 +1,21 @@
+(define-module (guix-qa-frontpage package)
+  #:use-module (srfi srfi-1)
+  #:use-module (guix-qa-frontpage guix-data-service)
+  #:export (package-data))
+
+(define (package-data name)
+  (let* ((revision (get-latest-processed-branch-revision "master"))
+         (package-versions
+          (vector->list
+           (assoc-ref
+            (guix-data-service-request
+             (string-append
+              "https://data.qa.guix.gnu.org/revision/" revision
+              "/package/" name ".json"))
+            "versions")))
+         (data
+          (guix-data-service-request
+           (string-append
+            "https://data.qa.guix.gnu.org/revision/" revision
+            "/package/" name "/" (last package-versions) ".json"))))
+    (peek data)))