diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-05 16:31:38 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-05 16:31:38 +0100 |
| commit | 7bb2b4b017b766c3b1ea1675d3a1129d75b375bf (patch) | |
| tree | dd51c14dbccb120aead30fac64d1de620aa34cd3 | |
| parent | 99e4a5a331dd9ecc425543183844d1b3a17e582d (diff) | |
| download | data-service-7bb2b4b017b766c3b1ea1675d3a1129d75b375bf.tar data-service-7bb2b4b017b766c3b1ea1675d3a1129d75b375bf.tar.gz | |
Add a utility to generate a span for the status of a build
| -rw-r--r-- | guix-data-service/web/html-utils.scm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/guix-data-service/web/html-utils.scm b/guix-data-service/web/html-utils.scm index a0619d4..4ba6b40 100644 --- a/guix-data-service/web/html-utils.scm +++ b/guix-data-service/web/html-utils.scm @@ -20,7 +20,8 @@ #:export (sexp-div build-status-value->display-string - build-status-span)) + build-status-span + build-status-alist->build-icon)) (define (sexp-div sexp) (peek "SEXP" sexp) @@ -65,3 +66,20 @@ status))) (style "display: inline-block; font-size: 1.2em; margin-top: 0.4em;")) ,(build-status-value->display-string status))) + +(define (build-status-alist->build-icon 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")) + (assoc-ref status "status")))) + (style "display: inline-block; font-size: 1.2em; margin-top: 0.4em;")) + ,(build-status-value->display-string + (assoc-ref status "status")))) |