view/html: Unclutter tables.

2 files changed, 59 insertions, 22 deletions

diff --git a/assets/css/screen.css b/assets/css/screen.css
index d981818..c4e47dd 100644
--- a/assets/css/screen.css
+++ b/assets/css/screen.css
@@ -53,24 +53,33 @@ p + p {
 }
 
 thead {
-    border-bottom: 2px solid #ddd;
+    border-bottom: 1px solid #ddd;
     font-weight: bold;
+    line-height: 1.2em;
+    height: 5em;
+    vertical-align: bottom;
 }
 
-tr {
-    border-bottom: 1px solid #ddd;
+tr.heading th {
+    background-color: #f8f9fa;
+    font-weight: bold;
 }
 
 tr td:nth-child(3){
     min-width: 8rem;
 }
 
-tr.serious td:nth-child(1) {
-    background-color: #ff5a2a;
-    color: #fff;
+tr.serious svg {
+    fill: #ff5a2a;
+    margin-right: .5em;
+    height: 1.2em;
+    vertical-align: text-bottom;
 }
-tr.important td:nth-child(1) {
-    background-color: #feaaaa;
+tr.important svg {
+    fill: #000;
+    margin-right: .5em;
+    height: 1.2em;
+    vertical-align: text-bottom;
 }
 
 #header {
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index 215573e..363b97d 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -151,7 +151,7 @@
             ,(%config 'submission-bug-email-address))
          " to submit a bug report.")
       (div
-       (@ (class "card mb-5"))
+       (@ (class "card"))
        (div (@ (class "card-body bg-light"))
           ,(search-form #:standalone? #t)
           (details
@@ -178,18 +178,27 @@
             ", and "
             (a (@ (href "help#search"))
                "many more!")))))
-      (h1 "Issues of interest")
-      (table (@ (class "table table-condensed table-sm table-hover"))
-             (thead
-              (tr (th "ID")
-                  (th "Subject")
-                  (th "Date submitted")
-                  (th "Status")))
-             (tbody
-              (tr (@ (class "bg-light")) (th (@ (colspan 4)) "Recent activity"))
-              ,@(list-of-bugs (recent-bugs 10))
-              (tr (@ (class "bg-light")) (th (@ (colspan 4)) "Priority bugs"))
-              ,@(priority-bugs)))))))
+
+      (table
+       (@ (class "table table-borderless table-hover"))
+       (thead
+        (tr (@ (class "h3")) (th (@ (colspan 4)) "Recent activity")))
+       (tbody
+        (tr (@ (class "heading"))
+            (th "ID")
+            (th "Subject")
+            (th "Date submitted")
+            (th "Status"))
+        ,@(list-of-bugs (recent-bugs 10)))
+       (thead
+        (tr (@ (class "h3")) (th (@ (colspan 4)) "Priority bugs")))
+       (tbody
+        (tr (@ (class "heading"))
+            (th "ID")
+            (th "Subject")
+            (th "Date submitted")
+            (th "Status"))
+        ,@(priority-bugs)))))))
 
 (define (help)
   (layout
@@ -479,7 +488,26 @@ supported.  To comment on this conversation "
          (let ((id (number->string (bug-num bug))))
            `(tr (@ (class ,(bug-severity bug)))
                 (td ,(or id "-"))
-                (td ,(if id
+                (td
+                 ,@(if (member (bug-severity bug) '("serious" "important"))
+                       `((svg (@ (xmlns"http://www.w3.org/2000/svg")
+                                 (xmlns:xlink "http://www.w3.org/1999/xlink")
+                                 (viewBox "0 0 14 16")
+                                 (version "1.1")
+                                 (height "1rem")
+                                 (width "1rem")
+                                 (aria-hidden "true"))
+                              (title ,(bug-severity bug))
+                              (path (@ (fill-rule "evenodd")
+                                       (d "\
+M7 2.3c3.14 0 5.7 2.56 5.7 5.7\
+s-2.56 5.7-5.7 5.7A5.71 5.71 0 011.3 8\
+c0-3.14 2.56-5.7 5.7-5.7z\
+M7 1C3.14 1 0 4.14 0 8\
+s3.14 7 7 7 7-3.14 7-7-3.14-7-7-7z\
+m1 3H6v5h2V4zm0 6H6v2h2v-2z")))))
+                       '())
+                 ,(if id
                          `(a (@ (href ,(string-append "/issue/" id)))
                              ,(bug-subject* bug))
                          (bug-subject* bug)))