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

Move build-status helpers to the html-utils module

Browse source
This commit is contained in:
Christopher Baines 2019-12-03 10:05:08 +01:00
parent e078b9611d
commit 716eb3c3b6
4 changed files with 34 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -17,7 +17,10 @@
(define-module (guix-data-service web html-utils)
#:use-module (ice-9 match)
#:export (sexp-div))
#:export (sexp-div
build-status-value->display-string
build-status-span))
(define (sexp-div sexp)
(match sexp
@ -33,3 +36,31 @@
,hash))
((and string val)
val)))
(define (build-status-value->display-string value)
(assoc-ref
'(("scheduled" . "Scheduled")
("started" . "Started")
("succeeded" . "Succeeded")
("failed" . "Failed")
("failed-dependency" . "Failed (dependency)")
("failed-other" . "Failed (other)")
("canceled" . "Canceled")
("" . "Unknown"))
value))
(define (build-status-span status)
`(span (@ (class ,(string-append
"label label-"
(assoc-ref
'(("scheduled" . "info")
("started" . "primary")
("succeeded" . "success")
("failed" . "danger")
("failed-dependency" . "warning")
("failed-other" . "danger")
("canceled" . "default")
("" . "default"))
status)))
(style "display: inline-block; font-size: 1.2em; margin-top: 0.4em;"))
,(build-status-value->display-string status)))