diff options
| -rw-r--r-- | guix-data-service/config.scm.in | 7 | ||||
| -rw-r--r-- | guix-data-service/web/controller.scm | 3 | ||||
| -rw-r--r-- | guix-data-service/web/view/html.scm | 21 |
3 files changed, 31 insertions, 0 deletions
diff --git a/guix-data-service/config.scm.in b/guix-data-service/config.scm.in index 20323c6..ab34254 100644 --- a/guix-data-service/config.scm.in +++ b/guix-data-service/config.scm.in @@ -30,6 +30,13 @@ (if (file-exists? install-dir) install-dir dev-dir))) + (doc-dir . ,(let ((install-dir + "@prefix@/share/doc/guix-data-service") + (dev-dir + (getcwd))) + (if (file-exists? install-dir) + install-dir + dev-dir))) (host . "localhost") (port . 8765) diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 423f4c0..55a136e 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -720,6 +720,9 @@ #t) 200 500)))) + (('GET "README") + (render-html + #:sxml (readme))) (_ (with-postgresql-connection "web" 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 |