From 62cabc80bfa8798a28767be11c23c370de7b45d4 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 18 Nov 2019 19:49:15 +0000
Subject: Link to the comparison page when viewing derivation history

---
 guix-data-service/web/repository/html.scm | 34 ++++++++++++++++++++++++-------
 1 file changed, 27 insertions(+), 7 deletions(-)

diff --git a/guix-data-service/web/repository/html.scm b/guix-data-service/web/repository/html.scm
index 129279d..2e93c45 100644
--- a/guix-data-service/web/repository/html.scm
+++ b/guix-data-service/web/repository/html.scm
@@ -332,10 +332,11 @@
             (style "table-layout: fixed;"))
          (thead
           (tr
-           (th (@ (class "col-sm-3")) "Version")
-           (th (@ (class "col-sm-5")) "Derivation")
-           (th (@ (class "col-sm-4")) "From")
-           (th (@ (class "col-sm-4")) "To")))
+           (th (@ (class "col-sm-2")) "Version")
+           (th (@ (class "col-sm-4")) "Derivation")
+           (th (@ (class "col-sm-2")) "From")
+           (th (@ (class "col-sm-2")) "To")
+           (th (@ (class "col-sm-1")) "")))
          (tbody
           ,@(let* ((times-in-seconds
                     (map (lambda (d)
@@ -360,7 +361,8 @@
                                     first-guix-revision-commit
                                     first-datetime
                                     last-guix-revision-commit
-                                    last-datetime))
+                                    last-datetime)
+                   next-derivation-file-name)
                   `((tr
                      (@ (style "border-bottom: 0;"))
                      ,@(match version-column-entry
@@ -391,7 +393,21 @@
                                        last-guix-revision-commit
                                        "/package/"
                                        package-name "/" package-version)))
-                            "(More information)")))
+                            "(More information)"))
+                     (td
+                      (@ (rowspan 4)
+                         (style "vertical-align: middle;"))
+                      ,@(if next-derivation-file-name
+                            `((a
+                               (@ (class "btn btn-sm btn-default")
+                                  (title "Compare")
+                                  (href
+                                   ,(string-append
+                                     "/compare/derivation"
+                                     "?base_derivation=" next-derivation-file-name
+                                     "&target_derivation=" derivation-file-name)))
+                               "⇕ Compare"))
+                            '())))
                     (tr
                      (td
                       (@ (colspan 3)
@@ -428,4 +444,8 @@
                                 (rationalize margin-left 1)
                                 (rationalize width 1)))))))))))
                versions-list
-               derivations-by-revision-range))))))))))
+               derivations-by-revision-range
+               (append
+                (map second
+                     (cdr derivations-by-revision-range))
+                '(#f))))))))))))
-- 
cgit v1.2.3