view: Sort participants by email.
authorRicardo Wurmus <rekado@elephly.net>
Sun, 2 Sep 2018 19:52:17 +0000 (21:52 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 2 Sep 2018 19:52:17 +0000 (21:52 +0200)
mumi/web/view/html.scm

index d9b5b6e..9d5511d 100644 (file)
   "Render the conversation for the given BUG."
   (define id (bug-num bug))
   (define messages (patch-messages id))
-  (define parties (filter (compose (negate bot?) extract-email)
-                          (participants messages)))
+  (define parties (sort (filter (compose (negate bot?) extract-email)
+                                (participants messages))
+                        (lambda (a b)
+                          (string< (extract-email a)
+                                   (extract-email b)))))
   (define (show-message message)
     `((div
        (@ (class "row"))