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 f61ba8fdd0da8061da84aa57c6fd3b9b1e424821
Author: Florian Pelz <address@hidden>
AuthorDate: 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 fe1119c..5b864c5 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)