diff options
Diffstat (limited to 'guix-qa-frontpage/view/home.scm')
-rw-r--r-- | guix-qa-frontpage/view/home.scm | 82 |
1 files changed, 40 insertions, 42 deletions
diff --git a/guix-qa-frontpage/view/home.scm b/guix-qa-frontpage/view/home.scm index 271bef8..b7d74d8 100644 --- a/guix-qa-frontpage/view/home.scm +++ b/guix-qa-frontpage/view/home.scm @@ -9,55 +9,53 @@ #:description "Guix Quality Assurance" #:body `((main - (p - (@ (style "width: unset; 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.savannah.gnu.org/cgit/guix/qa-frontpage.git/")) - "this git repository") - " and send patches to " - (a (@ (href "mailto:guix-devel@gnu.org")) - "guix-devel@gnu.org") - ".") (div (@ (class "row")) (section (a (@ (href "/branch/master")) (h2 "branch: master")))) + (h2 ,(gettext "Patches" "guix-qa-frontpage")) + (div + (@ (class "row")) + (section + (a (@ (href "/patches")) + "List of issues for patches"))) + (h2 "Branches") (div (@ (class "row")) - (table - (thead - (tr (th "Branch") - (th "Request to merge"))) - (tbody - ,@(append-map - (match-lambda - ((branch . details) - (let ((issue-number - (assoc-ref details "issue_number"))) - `((tr - (td (a (@ (href ,(string-append "/branch/" branch)) - (style "font-family: monospace;")) - ,branch)) - (td ,@(if issue-number - `((a (@ (href ,(string-append - "https://issues.guix.gnu.org/" - (number->string issue-number)))) - "#" ,issue-number)) - '()))))))) - branches)))) + (section + (table + (thead + (tr (th "Branch") + (th "Request to merge"))) + (tbody + ,@(append-map + (match-lambda + ((branch . details) + (let ((issue-number + (assoc-ref details "issue_number"))) + `((tr + (td (a (@ (href ,(string-append "/branch/" branch)) + (style "font-family: monospace;")) + ,branch)) + (td ,@(if issue-number + `((a (@ (href ,(string-append + "https://issues.guix.gnu.org/" + (number->string issue-number)))) + "#" ,issue-number)) + '()))))))) + branches))))) - (h2 ,(gettext "Patches" "guix-qa-frontpage")) - (a (@ (href "/patches")) - "List of issues for patches") - ;; (div - ;; (@ (class "row two-element-row")) - ;; (section - ;; (h3 "Checks passing")) - ;; (section - ;; (h3 "Unreviewed"))) - )))) + (p + (@ (style "width: unset; text-align: center;")) + "qa.guix.gnu.org is powered by the Guix qa-frontpage." + (br) + "Find the code in " + (a (@ (href "https://git.savannah.gnu.org/cgit/guix/qa-frontpage.git/")) + "this git repository") + " and send patches to " + (a (@ (href "mailto:guix-devel@gnu.org")) + "guix-devel@gnu.org") + "."))))) |