guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Improve the headings on the compare derivations page

Browse source
This commit is contained in:
Christopher Baines 2020-11-20 19:37:12 +00:00
parent 65507aaac1
commit 00c84640c5
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -612,16 +612,19 @@
(@ (class "container"))
(div
(@ (class "row"))
(h1 ,@(let ((base-commit (assq-ref query-parameters 'base_commit))
(h3 ,@(let ((base-commit (assq-ref query-parameters 'base_commit))
(target-commit (assq-ref query-parameters 'target_commit)))
(if (every string? (list base-commit target-commit))
`("Comparing "
(a (@ (href ,(string-append "/revision/" base-commit)))
(samp ,(string-take base-commit 8) "…"))
" and "
(a (@ (href ,(string-append "/revision/" target-commit)))
`((a (@ (href ,(string-append
"/compare?base_commit="
base-commit
"&target_commit="
target-commit)))
"Comparing "
(samp ,(string-take base-commit 8) "…")
" and "
(samp ,(string-take target-commit 8) "…")))
'("Comparing derivations")))))
'("Comparing package derivations")))))
(div
(@ (class "row"))
(div
@ -714,7 +717,7 @@ enough builds to determine a change")))
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(h3 "Package derivation changes")
(h1 "Package derivation changes")
,(if
(null? derivation-changes)
'(p "No derivation changes")