diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-09-02 21:52:17 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-09-02 21:52:17 +0200 |
| commit | 6c0d63ea89b61c63935c024ed9d8938c0635d96f (patch) | |
| tree | 7c33bc951ab45b39b0a28d0520a20518df21945a | |
| parent | 6f21e67a895d80d038606c0626259b40ceb82bbd (diff) | |
view: Sort participants by email.
| -rw-r--r-- | mumi/web/view/html.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index d9b5b6e..9d5511d 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -153,8 +153,11 @@ "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")) |