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

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
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")) (@ (class "container"))
(div (div
(@ (class "row")) (@ (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))) (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 " `((a (@ (href ,(string-append
(a (@ (href ,(string-append "/revision/" base-commit))) "/compare?base_commit="
(samp ,(string-take base-commit 8) "…")) base-commit
" and " "&target_commit="
(a (@ (href ,(string-append "/revision/" target-commit))) target-commit)))
"Comparing "
(samp ,(string-take base-commit 8) "…")
" and "
(samp ,(string-take target-commit 8) "…"))) (samp ,(string-take target-commit 8) "…")))
'("Comparing derivations"))))) '("Comparing package derivations")))))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div
@ -714,7 +717,7 @@ enough builds to determine a change")))
(@ (class "row")) (@ (class "row"))
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
(h3 "Package derivation changes") (h1 "Package derivation changes")
,(if ,(if
(null? derivation-changes) (null? derivation-changes)
'(p "No derivation changes") '(p "No derivation changes")