view/html: Show tag in issue list.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 12 May 2020 19:27:18 +0000 (21:27 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 12 May 2020 19:27:18 +0000 (21:27 +0200)
mumi/web/view/html.scm

index 3fb817762e922c5d424590934a114c8d0d471b00..b2512832080cb326e6de525b9c1e53b8bd41251a 100644 (file)
@@ -615,6 +615,13 @@ M7 1C3.14 1 0 4.14 0 8\
 s3.14 7 7 7 7-3.14 7-7-3.14-7-7-7z\
 m1 3H6v5h2V4zm0 6H6v2h2v-2z")))))
                        '())
+                 ,(or (and=> (bug-tags bug)
+                             (lambda (tag)
+                               `(span
+                                 (@ (class ,(string-append "badge badge-info mr-2 "
+                                                           tag)))
+                                 ,tag)))
+                      '())
                  ,(if id
                          `(a (@ (href ,(string-append "/" id)))
                              ,(bug-subject* bug))