08/09: website: Fix building with GUIX_WEB_SITE_ROOT_PATH.

[Florian Pelz]

pelzflorian pushed a commit to branch wip-i18n
in repository guix-artwork.

commit 07e90bfc25410dd8a1a9d4da1186c118ad6707eb
Author: Florian Pelz <address@hidden>
Date:   Wed Oct 30 21:45:45 2019 +0000

    website: Fix building with GUIX_WEB_SITE_ROOT_PATH.
    
    * website/.guix.scm: Retain GUIX_WEB_SITE_ROOT_PATH in the build expression.
---
 website/.guix.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/website/.guix.scm b/website/.guix.scm
index 9510779..a48621c 100644
--- a/website/.guix.scm
+++ b/website/.guix.scm
@@ -46,6 +46,9 @@
               #:recursive? #t
               #:select? (git-predicate this-directory)))
 
+(define root-path
+  (getenv "GUIX_WEB_SITE_ROOT_PATH"))
+
 (define (package+propagated-inputs package)
   (match (package-transitive-propagated-inputs package)
     (((labels packages) ...)
@@ -143,6 +146,10 @@
           ;; Use a sane default.
           (setenv "XDG_CACHE_HOME" "/tmp/.cache")
 
+          ;; Use GUIX_WEB_SITE_ROOT_PATH from the environment in which
+          ;; this script was run.
+          (setenv "GUIX_WEB_SITE_ROOT_PATH" #$root-path)
+
           ;; Build the website for each translation.
           (for-each
            (lambda (lingua)