diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-09-04 21:18:22 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-09-04 21:18:22 +0100 |
| commit | c6e4a686bdbf386d81f45cb7021c516a526a4054 (patch) | |
| tree | 5e42f1527c74987b4eb8d01d4b93caa3b4807d29 /guix-qa-frontpage/view | |
| parent | 4f3e9eb34384b1b2ea3dc6f2b74e49af4a88f966 (diff) | |
| download | qa-frontpage-c6e4a686bdbf386d81f45cb7021c516a526a4054.tar qa-frontpage-c6e4a686bdbf386d81f45cb7021c516a526a4054.tar.gz | |
Display the README as a page
Like the data service.
Diffstat (limited to 'guix-qa-frontpage/view')
| -rw-r--r-- | guix-qa-frontpage/view/home.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/home.scm b/guix-qa-frontpage/view/home.scm index b7d74d8..c5428b1 100644 --- a/guix-qa-frontpage/view/home.scm +++ b/guix-qa-frontpage/view/home.scm @@ -2,7 +2,8 @@ #:use-module (srfi srfi-1) #:use-module (ice-9 match) #:use-module (guix-qa-frontpage view util) - #:export (home)) + #:export (home + readme)) (define (home branches) (layout @@ -59,3 +60,10 @@ (a (@ (href "mailto:guix-devel@gnu.org")) "guix-devel@gnu.org") "."))))) + +(define (readme contents) + (layout + #:description "Guix Quality Assurance" + #:body + `((main + (raw ,contents))))) |