From fb301a8495965e7559d357440b8c59ad275ef6bd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 3 Oct 2019 21:35:29 +0100
Subject: Add a package page, showing versions for a revision

---
 guix-data-service/web/view/html.scm | 47 +++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

(limited to 'guix-data-service/web/view/html.scm')

diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 71f636e..b5c6175 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -33,6 +33,7 @@
             general-not-found
             unknown-revision
             view-statistics
+            view-revision-package
             view-revision-package-and-version
             view-revision
             view-revision-packages
@@ -308,6 +309,52 @@
                    (style "font-size: 2em; display: block;"))
                 ,derivations-count)))))))
 
+(define* (view-revision-package revision-commit-hash
+                                name
+                                versions
+                                #:key path-base
+                                header-text
+                                header-link)
+  (layout
+   #:body
+   `(,(header)
+     (div
+      (@ (class "container"))
+      (div
+       (@ (class "row"))
+       (div
+        (@ (class "col-sm-12"))
+        (h3 (a (@ (href ,header-link))
+               ,@header-text))))
+      (div
+       (@ (class "row"))
+       (div
+        (@ (class "col-sm-12"))
+        (h1 "Package " ,name)))
+      (div
+       (@ (class "row"))
+       (div
+        (@ (class "col-sm-12"))
+        (h3 "Versions")
+        (table
+         (@ (class "table"))
+         (thead
+          (tr
+           (th (@ (class "col-sm-10")) "Version")
+           (th (@ (class "col-sm-2")) "")))
+         (tbody
+          ,@(map
+             (lambda (version)
+               `(tr
+                 (td (samp ,version))
+                 (td
+                  (a (@ (href ,(string-append
+                                path-base
+                                revision-commit-hash
+                                "/package/" name "/" version)))
+                     "More information"))))
+             versions)))))))))
+
 (define* (view-revision-package-and-version revision-commit-hash name version
                                             package-metadata
                                             derivations git-repositories
-- 
cgit v1.2.3