diff options
| -rw-r--r-- | mumi/web/view/html.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm index ec39dd7..98a7294 100644 --- a/mumi/web/view/html.scm +++ b/mumi/web/view/html.scm @@ -263,16 +263,16 @@ some examples.") (string< (extract-email a) (extract-email b))))) (define (show-message message-number message previous-subject) - `((div (@ (class "row mb-5")) + `((div (@ (class "mb-5")) (a (@ (id ,(number->string message-number)))) (div - (@ (class "avatar col-md-1") + (@ (class "avatar") (style ,(string-append "background-color:" (avatar-color (sender-email message) (map extract-email parties))))) ,(string-upcase (string-take (sender-name message) 1))) (div - (@ (class "message col-md-11")) + (@ (class "message")) (div (@ (class "card")) (div @@ -385,7 +385,7 @@ some examples.") '()))) (div (@ (class "row")) (div - (@ (class "conversation col-md-9")) + (@ (class "conversation col-md")) ,(let ((msgs (filter (lambda (msg) ;; Ignore messages ;; without body, and @@ -400,13 +400,13 @@ some examples.") (cons (bug-subject* bug) (map subject msgs)))) (div - (@ (class "row comment-box")) + (@ (class "comment-box")) (a (@ (id "comment"))) (div - (@ (class "avatar col-md-1") + (@ (class "avatar") (style "background-color:#bc80bd")) "?") (div - (@ (class "message col-md-11")) + (@ (class "message")) (div (@ (class "card")) (div |