01/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 09d0aef1f8b7b979acfecaa4ee946ab7f22e1333
Author: Florian Pelz <pelzflorian@pelzflorian.de>
AuthorDate: Wed Oct 30 22:45:45 2019 +0100

    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 060172f..fcd2570 100644
--- a/website/.guix.scm
+++ b/website/.guix.scm
@@ -38,6 +38,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) ...)
@@ -126,6 +129,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)
+
           (format #t "Running 'haunt build'...~%")
           (invoke #+(file-append haunt-with-latest-guile "/bin/haunt")
                   "build")