cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Link to the revisions in the comparison header

Browse source
This commit is contained in:
Christopher Baines 2020-10-09 19:29:38 +01:00
parent da8586f62d
commit 1f55718d75
1 changed files with 20 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

30
guix-data-service/web/compare/html.scm
View file

@ -62,9 +62,11 @@
(div (div
(@ (class "col-sm-8")) (@ (class "col-sm-8"))
(h1 "Comparing " (h1 "Comparing "
(samp ,(string-take base-commit 8) "…") (a (@ (href ,(string-append "/revision/" base-commit)))
(samp ,(string-take base-commit 8) "…"))
" and " " and "
(samp ,(string-take target-commit 8) "…")) (a (@ (href ,(string-append "/revision/" target-commit)))
(samp ,(string-take target-commit 8) "…")))
,@(if (apply string=? cgit-url-bases) ,@(if (apply string=? cgit-url-bases)
`((a (@ (href ,(string-append `((a (@ (href ,(string-append
(first cgit-url-bases) (first cgit-url-bases)
@ -362,9 +364,11 @@
(target-commit (assq-ref query-parameters 'target_commit))) (target-commit (assq-ref query-parameters 'target_commit)))
(if (every string? (list base-commit target-commit)) (if (every string? (list base-commit target-commit))
`("Comparing " `("Comparing "
(samp ,(string-take base-commit 8) "…") (a (@ (href ,(string-append "/revision/" base-commit)))
(samp ,(string-take base-commit 8) "…"))
" and " " and "
(samp ,(string-take target-commit 8) "…")) (a (@ (href ,(string-append "/revision/" target-commit)))
(samp ,(string-take target-commit 8) "…")))
'("Comparing derivations"))))) '("Comparing derivations")))))
(div (div
(@ (class "row")) (@ (class "row"))
@ -609,9 +613,11 @@
(target-commit (assq-ref query-parameters 'target_commit))) (target-commit (assq-ref query-parameters 'target_commit)))
(if (every string? (list base-commit target-commit)) (if (every string? (list base-commit target-commit))
`("Comparing " `("Comparing "
(samp ,(string-take base-commit 8) "…") (a (@ (href ,(string-append "/revision/" base-commit)))
(samp ,(string-take base-commit 8) "…"))
" and " " and "
(samp ,(string-take target-commit 8) "…")) (a (@ (href ,(string-append "/revision/" target-commit)))
(samp ,(string-take target-commit 8) "…")))
'("Comparing derivations"))))) '("Comparing derivations")))))
(div (div
(@ (class "row")) (@ (class "row"))
@ -770,9 +776,11 @@
(target-commit (assq-ref query-parameters 'target_commit))) (target-commit (assq-ref query-parameters 'target_commit)))
(if (every string? (list base-commit target-commit)) (if (every string? (list base-commit target-commit))
`("Comparing " `("Comparing "
(samp ,(string-take base-commit 8) "…") (a (@ (href ,(string-append "/revision/" base-commit)))
(samp ,(string-take base-commit 8) "…"))
" and " " and "
(samp ,(string-take target-commit 8) "…")) (a (@ (href ,(string-append "/revision/" target-commit)))
(samp ,(string-take target-commit 8) "…")))
'("Comparing derivations"))))) '("Comparing derivations")))))
(div (div
(@ (class "row")) (@ (class "row"))
@ -938,9 +946,11 @@
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
(h1 "Comparing " (h1 "Comparing "
(samp ,(string-take base-commit 8) "…") (a (@ (href ,(string-append "/revision/" base-commit)))
(samp ,(string-take base-commit 8) "…"))
" and " " and "
(samp ,(string-take target-commit 8) "…")) (a (@ (href ,(string-append "/revision/" target-commit)))
(samp ,(string-take target-commit 8) "…")))
(a (@ (class "btn btn-default btn-lg") (a (@ (class "btn btn-default btn-lg")
(href ,(string-append (href ,(string-append
"/compare/packages.json" query-params))) "/compare/packages.json" query-params)))