html: Remove extra classes.

1 files changed, 8 insertions, 13 deletions

diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index 3f1f956..aa00203 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -82,9 +82,7 @@
                  '(class "form-inline"))
             (action "/search"))
          (div
-          (@ (class ,(if standalone?
-                         "input-group input-group-lg"
-                         "input-group")))
+          (@ (class "input-group"))
           (input (@ (type "search")
                     (id   "query")
                     (name "query")
@@ -95,7 +93,6 @@
            (p "You can improve the search results by making use of the
 simple query language.  Here is a list of supported query terms:")
            (table
-            (@ (class "table table-sm table-borderless"))
             (tbody
              ,@(map (match-lambda
                       ((term description)
@@ -263,7 +260,7 @@ simple query language.  Here is a list of supported query terms:")
        (h4 "Recent activity "
            (small (a (@ (href "recent")) "(More)")))
        (table
-        (@ (role "grid") (class "js-sort-table"))
+        (@ (class "js-sort-table"))
         (thead
          (tr (@ (class "heading"))
              (th (@ (class "js-sort-number")) "ID")
@@ -277,7 +274,7 @@ simple query language.  Here is a list of supported query terms:")
        (h4 "Forgotten issues "
            (small (a (@ (href "forgotten")) "(More)")))
        (table
-        (@ (role "grid") (class "js-sort-table"))
+        (@ (class "js-sort-table"))
         (thead
          (tr (@ (class "heading"))
              (th (@ (class "js-sort-number")) "ID")
@@ -290,7 +287,7 @@ simple query language.  Here is a list of supported query terms:")
       (article
        (h4 "Priority bugs")
        (table
-        (@ (role "grid") (class "js-sort-table"))
+        (@ (class "js-sort-table"))
         (thead
          (tr (@ (class "heading"))
              (th (@ (class "js-sort-number")) "ID")
@@ -312,7 +309,6 @@ simple query language.  Here is a list of supported query terms:")
 simple query language.  Here is a list of supported query terms with
 some examples.")
       (table
-       (@ (class "table"))
        (thead
         (tr
          (th "Filter")
@@ -735,8 +731,7 @@ m1 3H6v5h2V4zm0 6H6v2h2v-2z")))))
                                 (map (lambda (tag)
                                        `(a (@ (href ,(string-append "search?query=tag:" tag)))
                                            (span
-                                            (@ (class ,(string-append "badge badge-info mr-1 "
-                                                                      tag)))
+                                            (@ (class ,(string-append "badge badge-info " tag)))
                                             ,tag)))
                                      (string-split tags #\space))))
                        '())
@@ -763,7 +758,7 @@ m1 3H6v5h2V4zm0 6H6v2h2v-2z")))))
       (@ (class "container"))
       (h1 "Recent issues")
       (table
-       (@ (class "table table-borderless table-hover js-sort-table"))
+       (@ (class "js-sort-table"))
        (thead
         (tr (@ (class "heading"))
             (th (@ (class "js-sort-number")) "ID")
@@ -781,7 +776,7 @@ m1 3H6v5h2V4zm0 6H6v2h2v-2z")))))
       (@ (class "container"))
       (h1 "Forgotten issues")
       (table
-       (@ (class "table table-borderless table-hover js-sort-table"))
+       (@ (class "js-sort-table"))
        (thead
         (tr (@ (class "heading"))
             (th (@ (class "js-sort-number")) "ID")
@@ -811,7 +806,7 @@ m1 3H6v5h2V4zm0 6H6v2h2v-2z")))))
                 (a (@ (href "/"))
                    "Try searching for something else?")))
            `(table
-             (@ (class "table table-borderless table-hover js-sort-table"))
+             (@ (class "js-sort-table"))
              (thead
               (tr (@ (class "heading"))
                   (th (@ (class "js-sort-number")) "ID")