diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-12 13:21:15 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-12 13:40:54 +0200 |
| commit | 7e6f8f13eb19fb82c75570508c0a576cf6d6116e (patch) | |
| tree | 8a1db3af0aeaa34403462b4e963a843c3f863b2c | |
| parent | 6366d8d3cb8928ffd06502122dc690e158df0b7f (diff) | |
view/html: Use time->string on messages.
| -rw-r--r-- | mumi/web/view/html.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index 821076c..3fb8177 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -339,7 +339,7 @@ failed to process associated messages.") (span (@ (class "date")) (a (@ (href ,(string-append "#" (number->string message-number)))) - ,(date->string (date message)))))) + ,(time->string (date message)))))) messages (iota (length messages))))) (define issue-details @@ -517,11 +517,12 @@ currently disabled.")) (map extract-email parties))))) ,(string-upcase (string-take (sender-name message) 1))) (span (@ (class "address")) ,(sender-name message)) - " wrote on " + " wrote " (span (@ (class "date")) (a (@ (href ,(string-append "#" (number->string - message-number)))) - ,(date->string (date message))))) + message-number))) + (title ,(date->string (date message)))) + ,(time->string (date message))))) ,@(if (string-suffix? previous-subject (subject message)) '() `((div (@ (class "subject")) ,(subject message)))) |