From 91e0527b4da803c089974b6022b373cf910ecb66 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 29 Jul 2019 20:40:56 +0100 Subject: Link to cgit on the comparison page --- guix-data-service/web/controller.scm | 4 ++++ guix-data-service/web/view/html.scm | 15 ++++++++++++--- 2 files changed, 16 insertions(+), 3 deletions(-) (limited to 'guix-data-service/web') diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index a76be6c..974722d 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -386,6 +386,10 @@ (render-html #:sxml (compare base-commit target-commit + (guix-revisions-cgit-url-bases + conn + (list base-revision-id + target-revision-id)) new-packages removed-packages version-changes) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index e54f871..25d6d37 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -1174,6 +1174,7 @@ (define (compare base-commit target-commit + cgit-url-bases new-packages removed-packages version-changes) @@ -1189,12 +1190,20 @@ (div (@ (class "row")) (div - (@ (class "col-sm-12")) - (h1 (@ (class "pull-left")) - "Comparing " + (@ (class "col-sm-8")) + (h1 "Comparing " (samp ,(string-take base-commit 8) "…") " and " (samp ,(string-take target-commit 8) "…")) + ,@(if (apply string=? cgit-url-bases) + `((a (@ (href ,(string-append + (first cgit-url-bases) + "log/?qt=range&q=" + base-commit ".." target-commit))) + "(View cgit)")) + '())) + (div + (@ (class "col-sm-4")) (div (@ (class "btn-group-vertical btn-group-lg pull-right") (style "margin-top: 2em;") -- cgit v1.2.3