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

Deduplicate the build status span code in html-utils

Browse source
This commit is contained in:
Christopher Baines 2019-12-16 20:12:58 +00:00
parent 5b54259974
commit e6b20746be
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -84,18 +84,4 @@
,(build-status-value->display-string status))) ,(build-status-value->display-string status)))
(define (build-status-alist->build-icon status) (define (build-status-alist->build-icon status)
`(span (@ (class ,(string-append (build-status-span (assoc-ref status "status")))
"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"))))