02/02: website: Add 'guix.scm' file for 'guix build'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix-artwork.

commit 85940cd58ecaa7916da6abbda6b0de955a1005eb
Author: Ludovic Courtès <address@hidden>
Date:   Mon May 22 12:26:59 2017 +0200

    website: Add 'guix.scm' file for 'guix build'.
    
    * website/guix.scm: New file.
---
 website/guix.scm | 74 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)

diff --git a/website/guix.scm b/website/guix.scm
new file mode 100644
index 0000000..5552791
--- /dev/null
+++ b/website/guix.scm
@@ -0,0 +1,74 @@
+;;; GuixSD website --- GNU's advanced distro website
+;;; Copyright © 2017 Ludovic Courtès <address@hidden>
+;;;
+;;; This file is part of GuixSD website.
+;;;
+;;; GuixSD website is free software; you can redistribute it and/or modify it
+;;; under the terms of the GNU General Public License as published by
+;;; the Free Software Foundation; either version 3 of the License, or
+;;; (at your option) any later version.
+;;;
+;;; GuixSD website is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with GuixSD website.  If not, see <http://www.gnu.org/licenses/>.
+
+;; Run 'guix build -f guix.scm' to build the web site.
+
+(use-modules (guix) (gnu)
+             (guix modules)
+             (guix git-download))
+
+(define source
+  (local-file "." "guix-web-site"
+              #:recursive? #t
+              #:select? (git-predicate ".")))
+
+(define-syntax let-package
+  (syntax-rules ()
+    ((_ () body ...)
+     (begin body ...))
+    ((_ ((var name) rest ...) body ...)
+     (let ((var (specification->package name)))
+       (let-package (rest ...) body ...)))))
+
+(let-package ((guix "guix")
+              (guile-json "guile-json")
+              (haunt "haunt")
+              (guile-commonmark "guile-commonmark")
+              (guile-syntax-highlight "guile-syntax-highlight"))
+  (with-imported-modules (source-module-closure
+                          '((guix build utils)))
+    #~(begin
+        (use-modules (guix build utils))
+
+        (copy-recursively #$source ".")
+
+        ;; For Haunt.
+        (setenv "GUILE_LOAD_PATH"
+                (string-join (list #+guile-commonmark #+guile-json
+                                   #+guile-syntax-highlight
+                                   #+guix)
+                             "/share/guile/site/2.2:"
+                             'suffix))
+        (setenv "GUILE_LOAD_COMPILED_PATH"
+                #+(file-append guix "/lib/guile/2.2/site-ccache"))
+
+        ;; So we can read/write UTF-8 files.
+        (setenv "GUIX_LOCPATH"
+                #+(file-append (specification->package "glibc-utf8-locales")
+                               "/lib/locale"))
+        (setenv "LC_ALL" "en_US.utf8")
+
+        (and (zero? (system* #+(file-append haunt "/bin/haunt")
+                             "build"))
+             (begin
+               (mkdir-p #$output)
+               (copy-recursively "site" #$output))))))
+
+;; Local Variables:
+;; eval: (put 'let-package 'scheme-indent-function 1)
+;; End: