From 1724bc485f13922d768bc09309a6a7975678c321 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 29 Jul 2019 21:11:45 +0100
Subject: Link to the comparison page from the branch page

To allow easily comparing revisions.
---
 guix-data-service/web/view/html.scm | 32 ++++++++++++++++++++++++++------
 1 file changed, 26 insertions(+), 6 deletions(-)

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

diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 1702a71..4b1129f 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -789,15 +789,17 @@
        (div
         (@ (class "col-md-12"))
         (table
-         (@ (class "table table-responsive"))
+         (@ (class "table table-responsive")
+            (style "table-layout: fixed;"))
          (thead
           (tr
            (th (@ (class "col-md-3")) "Date")
-           (th (@ (class "col-md-3")) "Commit")))
+           (th (@ (class "col-md-7")) "Commit")
+           (th (@ (class "col-md-1")))))
          (tbody
           ,@(map
-             (match-lambda
-               ((commit date revision-exists? job-events)
+             (match-lambda*
+               (((commit date revision-exists? job-events) previous-commit)
                 `(tr
                   (td ,date)
                   (td ,@(if (string=? commit "NULL")
@@ -816,8 +818,26 @@
                                         "Failed to import data"))
                                 (else
                                  '(span (@ (class "label label-default"))
-                                        "No information yet")))))))))
-             branch-commits)))))))))
+                                        "No information yet"))))))
+                  ,@(if previous-commit
+                        `((td
+                           (@ (style "vertical-align: middle;")
+                              (rowspan "2"))
+                           (div
+                            (@ (class "btn-group")
+                               (role "group"))
+                            (a (@ (class "btn btn-sm btn-default")
+                                  (title "Compare")
+                                  (href ,(string-append
+                                          "/compare"
+                                          "?base_commit=" previous-commit
+                                          "&target_commit=" commit)))
+                               "⇕ Compare"))))
+                          '()))))
+             branch-commits
+             (append (map first (cdr branch-commits))
+                     (list #f)))))))))))
+
 
 (define (view-builds stats builds)
   (layout
-- 
cgit v1.2.3