diff options
author | Christopher Baines <mail@cbaines.net> | 2019-09-21 12:41:39 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-09-21 12:41:39 +0100 |
commit | 1181d999a9acb8a82845dc397d84fc7f944c5ab2 (patch) | |
tree | 791e10f3dc09d85dc63aa4a774462c4b0d90990e /guix-data-service/web/view | |
parent | f5ff0f86383031072b0448f7b6d0b1221d5c45f9 (diff) | |
download | data-service-1181d999a9acb8a82845dc397d84fc7f944c5ab2.tar data-service-1181d999a9acb8a82845dc397d84fc7f944c5ab2.tar.gz |
Serve the README.html file on the site
Diffstat (limited to 'guix-data-service/web/view')
-rw-r--r-- | guix-data-service/web/view/html.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 622c692..d0b480b 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -23,12 +23,14 @@ #:use-module (guix-data-service web util) #:use-module (ice-9 vlist) #:use-module (ice-9 match) + #:use-module (ice-9 textual-ports) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) #:use-module (texinfo) #:use-module (texinfo html) #:use-module (json) #:export (index + readme general-not-found unknown-revision view-statistics @@ -221,6 +223,25 @@ '()))) '()))))) +(define (readme) + (layout + #:body + `(,(header) + (div + (@ (class "container")) + (div + (@ (class "row")) + (div + (@ (class "col-sm-12")) + (h1 "The README document"))) + (div + (@ (class "row")) + (div + (@ (class "col-sm-12")) + (raw ,(call-with-input-file + (string-append (%config 'doc-dir) "/README.html") + get-string-all)))))))) + (define (index git-repositories-and-revisions) (layout #:body |