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 /scripts/guix-qa-frontpage.in | |
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 'scripts/guix-qa-frontpage.in')
-rw-r--r-- | scripts/guix-qa-frontpage.in | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 47c7743..4eeb680 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -45,6 +45,15 @@ (setenv "GC_RETRY_SIGNALS" "0") (apply execlp (car (command-line)) (command-line)))) +(define doc-dir + (let ((install-dir + "@prefix@/share/doc/guix-data-service") + (dev-dir + (getcwd))) + (if (file-exists? install-dir) + install-dir + dev-dir))) + (define %options ;; Specifications of the command-line options (list (option '("listen-repl") #f #t @@ -267,4 +276,5 @@ (assq-ref opts 'assets-directory) database metrics-registry - #:controller-args `(#:patch-issues-to-show ,patch-issues-to-show))))))) + #:controller-args `(#:doc-dir ,doc-dir + #:patch-issues-to-show ,patch-issues-to-show))))))) |