From d9259dc7afe1ac6f847fa49d7ca26800b5a0e276 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 6 Sep 2022 09:28:36 +0100 Subject: Make the homepage more useful Link to the page with all the patches on it, and add a notice about this service being very new. --- guix-qa-frontpage/view/home.scm | 27 ++++++++++++++++++++------- 1 file changed, 20 insertions(+), 7 deletions(-) (limited to 'guix-qa-frontpage/view/home.scm') diff --git a/guix-qa-frontpage/view/home.scm b/guix-qa-frontpage/view/home.scm index 7f23201..ef1ed4f 100644 --- a/guix-qa-frontpage/view/home.scm +++ b/guix-qa-frontpage/view/home.scm @@ -7,6 +7,17 @@ #:description "Guix Quality Assurance" #:body `((main + (p + (@ (style "text-align: center; padding: 2rem; border: 0.3rem dashed red;")) + "This service is in the very early stages of development. " + (br) + "Find the code in " + (a (@ (href "https://git.cbaines.net/guix/qa-frontpage/")) + "this git repository") + " and send patches to " + (a (@ (href "mailto:mail@cbaines.net")) + "mail@cbaines.net") + ".") ;; (div (@ (class "row")) ;; (section ;; (h2 "branch: master"))) @@ -18,10 +29,12 @@ ;; (section ;; (h3 "branch: staging"))) (h2 "Patches") - (div - (@ (class "row two-element-row")) - (section - (h3 "Checks passing")) - (section - (h3 "Unreviewed"))))))) - + (a (@ (href "/patches")) + "List of issues for patches") + ;; (div + ;; (@ (class "row two-element-row")) + ;; (section + ;; (h3 "Checks passing")) + ;; (section + ;; (h3 "Unreviewed"))) + )))) -- cgit v1.2.3