diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-03-12 10:49:19 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-03-12 10:49:19 +0000 |
| commit | 27c34a9ca5ea010f207a4acad597ce98e84d3567 (patch) | |
| tree | a70d5533bd54e40717b562a2a82e7ff6e42877fb /guix-data-service/web/revision | |
| parent | c0679185b8ff9dbf2f9c38f2f89f1f19a6d81de7 (diff) | |
| download | data-service-27c34a9ca5ea010f207a4acad597ce98e84d3567.tar data-service-27c34a9ca5ea010f207a4acad597ce98e84d3567.tar.gz | |
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.
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 45d58ec..6b69e4a 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -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) |