07/09: website: Handle GUIX_WEB_SITE_ROOT_PATH not ending in a slash.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit 0237605412c5c82a82050dafb83ee17b770c797e Author: Florian Pelz AuthorDate: Wed Oct 30 19:43:16 2019 + 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"))
07/09: website: Handle GUIX_WEB_SITE_ROOT_PATH not ending in a slash.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit 0ff8befa9bff463cb639785655163d3f602dee1d Author: Florian Pelz Date: Wed Oct 30 19:43:16 2019 + 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"))
07/09: website: Handle GUIX_WEB_SITE_ROOT_PATH not ending in a slash.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit 94d5e7376ccaeb9ef4ae18fcc92599e9089164c2 Author: Florian Pelz Date: Wed Oct 30 19:43:16 2019 + 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"))
07/09: website: Handle GUIX_WEB_SITE_ROOT_PATH not ending in a slash.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit 03d424b6ae94d46a2d76326de95d6af982d33b70 Author: Florian Pelz Date: Wed Oct 30 19:43:16 2019 + 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"))
07/09: website: Handle GUIX_WEB_SITE_ROOT_PATH not ending in a slash.
pelzflorian pushed a commit to branch wip-i18n in repository guix-artwork. commit e96533b045bf50c0d8168f49b2ed508e749587c2 Author: Florian Pelz Date: Wed Oct 30 19:43:16 2019 + 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"))