pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit 0237605412c5c82a82050dafb83ee17b770c797e Author: Florian Pelz <pelzflor...@pelzflorian.de> AuthorDate: Wed Oct 30 19:43:16 2019 +0000
website: Handle GUIX_WEB_SITE_ROOT_PATH not ending in a slash. * website/apps/base/utils.scm (guix-root-url-path): Add check in setter. --- website/apps/base/utils.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm index 508abcd..ebb4000 100644 --- a/website/apps/base/utils.scm +++ b/website/apps/base/utils.scm @@ -51,7 +51,11 @@ (define guix-root-url-path ;; Path to GNU Guix site at guix.gnu.org. - (make-parameter (or (getenv "GUIX_WEB_SITE_ROOT_PATH") "/"))) + (make-parameter (or (getenv "GUIX_WEB_SITE_ROOT_PATH") "/") + (lambda (path) + (if (string-suffix? "/" path) + path + (string-append path "/"))))) (define latest-guix-version (make-parameter "1.0.1"))