diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-29 14:02:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-30 00:29:40 +0200 |
| commit | bf3e4912864812c284687ede4e0ce36e4051ca1a (patch) | |
| tree | ce1c0bca2bed0039f9547a1f6ac47a824c5f422f | |
| parent | website: haunt: Update build directory. (diff) | |
| download | guix-artwork-bf3e4912864812c284687ede4e0ce36e4051ca1a.tar.gz | |
website: 'manual-url' now accepts a #:language parameter.
* website/apps/base/utils.scm (manual-url): Add #:language parameter and
honor it.
| -rw-r--r-- | website/apps/base/utils.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/website/apps/base/utils.scm b/website/apps/base/utils.scm index 5597890..8d901df 100644 --- a/website/apps/base/utils.scm +++ b/website/apps/base/utils.scm @@ -1,5 +1,5 @@ ;;; GNU Guix web site -;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2018, 2019 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;;; Copyright © 2013 Alex Sassmannshausen <alex.sassmannshausen@gmail.com> ;;; Copyright © 2017 Eric Bavier <bavier@member.fsf.org> @@ -101,7 +101,8 @@ (string-append (guix-root-url-path) subpath))) -(define* (manual-url #:optional (subpath "")) +(define* (manual-url #:optional (subpath "") + #:key (language "en")) "Append SUBPATH to the GNU Guix manual URL path. SUBPATH (string) @@ -110,11 +111,12 @@ RETURN VALUE (string) A URL path. For example: - /software/guix/manual/html_node/System-installation.html." + /software/guix/manual/en/html_node/System-installation.html." (string-append (guix-url (if (getenv "GUIX_WEB_SITE_INFO") - "manual/en/" - "manual/html_node/")) subpath)) + (string-append "manual/" language "/") + (string-append "manual/" language "/html_node/")) + subpath))) |