[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: website: Fix building with GUIX_WEB_SITE_ROOT_PATH.
From: |
Florian Pelz |
Subject: |
04/04: website: Fix building with GUIX_WEB_SITE_ROOT_PATH. |
Date: |
Wed, 30 Oct 2019 18:27:21 -0400 (EDT) |
pelzflorian pushed a commit to branch wip-i18n
in repository guix-artwork.
commit 651c2dad9d7b4a935bb6861e725b54e381c68371
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)