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

Improve the linking to build servers

Browse source 
Add a build-url function that returns the URL to use, and use this where
appropriate.
This commit is contained in:
Christopher Baines 2020-07-01 19:51:21 +01:00
parent 1e2fefa7cf
commit dc8b442e12
5 changed files with 37 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/web/html-utils.scm
View file

@ -25,6 +25,7 @@
build-status-value->display-string
build-status-span
build-url
build-status-alist->build-icon))
(define (sexp-div sexp)
@ -67,6 +68,17 @@
("" . "Unknown"))
value))
(define (build-url build-server-id build-server-build-id derivation-file-name)
(if (string? build-server-build-id)
(simple-format
#f "/build-server/~A/build?build_server_build_id=~A"
build-server-id
build-server-build-id)
(simple-format
#f "/build-server/~A/build?derivation_file_name=~A"
build-server-id
derivation-file-name)))
(define (build-status-span status)
`(span (@ (class ,(string-append
"label label-"