diff options
| -rw-r--r-- | assets/css/screen.css | 6 | ||||
| -rw-r--r-- | mumi/web/view/html.scm | 30 |
2 files changed, 34 insertions, 2 deletions
diff --git a/assets/css/screen.css b/assets/css/screen.css index 45aea24..2e52ae4 100644 --- a/assets/css/screen.css +++ b/assets/css/screen.css @@ -61,10 +61,12 @@ h2 { padding-bottom: 5px; } -ul.merged li { +ul.merged li, ul.blockedby li, ul.blocks li { display: inline-block; } -ul.merged li + li:before { +ul.merged li + li:before, +ul.blockedby li + li:before, +ul.blocks li + li:before { content: ", "; } diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 0c33d53..1ba3c90 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -354,6 +354,36 @@ range. The supported arguments are the same as for " (string-split str #\space)) ((? number? n) (list (number->string n))))))) + '()) + ,@(if (bug-blocks bug) + `((ul (@ (class "blocks")) + "Blocks: " + ,(map (lambda (id) + `(li (a (@ (href ,(string-append "/issue/" id))) + ,id))) + ;; XXX: This field can either hold a + ;; string of multiple ids, or a single + ;; number. Deal with this mess. + (match (bug-blocks bug) + ((? string? str) + (string-split str #\space)) + ((? number? n) + (list (number->string n))))))) + '()) + ,@(if (bug-blockedby bug) + `((ul (@ (class "blockedby")) + "Blocked by: " + ,(map (lambda (id) + `(li (a (@ (href ,(string-append "/issue/" id))) + ,id))) + ;; XXX: This field can either hold a + ;; string of multiple ids, or a single + ;; number. Deal with this mess. + (match (bug-blockedby bug) + ((? string? str) + (string-split str #\space)) + ((? number? n) + (list (number->string n))))))) '()))) (div (@ (class "row")) |