aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/view/home.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage/view/home.scm')
-rw-r--r--guix-qa-frontpage/view/home.scm27
1 files changed, 20 insertions, 7 deletions
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")))
+ ))))