html: Show related bugs that were merged.

* mumi/web/view/html.scm (issue-page): Process "mergedwith" field.
* assets/css/screen.css: Add rules for ul.merged.

diff --git a/assets/css/screen.css b/assets/css/screen.css
index 012d359011065336b57f43155902134db08fbfaa..45aea2441698f378082af1c5221fda4cf0b5e4cc 100644 (file)
--- a/assets/css/screen.css
+++ b/assets/css/screen.css
@@ -61,6 +61,13 @@ h2 {
     padding-bottom: 5px;
 }
 
+ul.merged li {
+    display: inline-block;
+}
+ul.merged li + li:before {
+    content: ", ";
+}
+
 p {
     max-width: 70rem;
 }

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index 8cb811fdc5e8a704ef8c39b083f65b14f7ab4df9..bff509fb4b316d90514f1e5e4b46c75776733869 100644 (file)
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -338,7 +338,15 @@ range.  The supported arguments are the same as for "
                              ;; return value, because it swallows
                              ;; non-ASCII characters.
                              (sender-name (first messages))
-                             ".")))
+                             ".")
+             ,@(if (bug-mergedwith bug)
+                   `((ul (@ (class "merged"))
+                         "Merged with: "
+                         ,(map (lambda (id)
+                                 `(li (a (@ (href ,(string-append "/issue/" id)))
+                                         ,id)))
+                               (string-split (bug-mergedwith bug) #\space))))
+                   '())))
       (div
        (@ (class "row"))
        (div