diff options
| -rw-r--r-- | assets/css/screen.css | 25 | ||||
| -rw-r--r-- | mumi/web/view/html.scm | 56 |
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))) |