Link and show some patches stats on the homepage

1 files changed, 44 insertions, 2 deletions

diff --git a/guix-qa-frontpage/view/home.scm b/guix-qa-frontpage/view/home.scm
index c5428b1..de14cc0 100644
--- a/guix-qa-frontpage/view/home.scm
+++ b/guix-qa-frontpage/view/home.scm
@@ -8,6 +8,22 @@
 (define (home branches)
   (layout
    #:description "Guix Quality Assurance"
+   #:head
+   '((style "
+dt:before {
+    content: "";
+    display: block;
+}
+dt, dd {
+    display: inline;
+}
+dd {
+    margin-left: 0.6em;
+}
+dt {
+    margin-left: 2em;
+}
+"))
    #:body
    `((main
       (div
@@ -20,8 +36,34 @@
       (div
        (@ (class "row"))
        (section
-        (a (@ (href "/patches"))
-           "List of issues for patches")))
+        (a (@ (href "/patches")
+              (style "font-size: 140%;"))
+           "List of issues for patches")
+
+        (div
+         (h3 "Statistics")
+         (p
+          (a
+           (@ (href "https://debbugs.gnu.org/rrd/guix-patches.html"))
+           (img (@ (width "60%")
+                   (src "https://debbugs.gnu.org/rrd/guix-patches_1m.png"))))
+
+          (dl
+           (@ (style "margin-top: 0;"))
+           (dt "CR")
+           (dd "serious,grave,critical")
+
+           (dt "IM")
+           (dd "important")
+
+           (dt "NO")
+           (dd "normal")
+
+           (dt "MI")
+           (dd "minor")
+
+           (dt "WI")
+           (dd "wishlist"))))))
 
       (h2 "Branches")
       (div