guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Fix a couple of things on the package substitute availability page 

When there's a target, render the heading neatly, and include the target
parameter in the URLs.
This commit is contained in:
Christopher Baines 2022-03-12 10:49:19 +00:00
parent c0679185b8
commit 27c34a9ca5
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix-data-service/web/revision/html.scm
View File

@ -1103,7 +1103,10 @@ figure {
`(div
(@ (class "col-sm-6"))
(h3 (@ (style "font-family: monospace;"))
,system ,target)
,system
,@(if (string-null? target)
'()
`((*ENTITY* nbsp) (*ENTITY* rarr) (*ENTITY* nbsp) ,target)))
(figure
(div
(@ (class "figure-content"))
@ -1229,7 +1232,10 @@ figure {
"substitutes_available_from="
"substitutes_not_available_from=")
(number->string build-server-id)
"&system=" system)))
"&system=" system
(if (string-null? target)
""
(string-append "&target=" target)))))
,(format #f "~a (~d, ~2,2f%)"
label
(or count 0)