view/html: Remove excessive bootstrap grid classes.

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index ec39dd75bf82569fb8a444125584d01e5119267e..98a7294a944480ed24ffd714461c563585af6f4e 100644 (file)
--- 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