01/02: website: packages: Enabel expensive builders for guix.info.

[Ricardo Wurmus]

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

commit 0bd3558e8a533a4f6b2bd241ffdfc575004570a7
Author: Ricardo Wurmus <address@hidden>
Date:   Fri Feb 8 18:25:11 2019 +0100

    website: packages: Enabel expensive builders for guix.info.
    
    * website/apps/packages/builder.scm (builder): Use expensive builders
    when GUIX_WEB_SITE_INFO is set.
---
 website/apps/packages/builder.scm | 40 +++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/website/apps/packages/builder.scm 
b/website/apps/packages/builder.scm
index 51afa74..d85b5ee 100644
--- a/website/apps/packages/builder.scm
+++ b/website/apps/packages/builder.scm
@@ -1,5 +1,6 @@
 ;;; GuixSD website --- GNU's advanced distro website
 ;;; Copyright © 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2019 Ricardo Wurmus <address@hidden>
 ;;;
 ;;; Initially written by sirgazil
 ;;; who waives all copyright interest on this file.
@@ -34,6 +35,7 @@
   #:use-module (haunt html)
   #:use-module (haunt page)
   #:use-module (haunt utils)
+  #:use-module (srfi srfi-1)
   #:export (builder))
 
 
@@ -58,26 +60,24 @@
      A list of page objects that represent the web resources of the
      application. See Haunt <page> objects for more information."
   (flatten
-   (list
-    ;; TODO: These are provisional builders (reason below).
-    (detailed-index-builder)
-    (detailed-package-list-builder)
-    ;; -----------------------------------------------------------------
-    ;;
-    ;; These provisional builders are used because of a limitation of
-    ;; the CVS repository used for deploying the website. The idea is
-    ;; to have "package list" and "package detail" pages as proposed
-    ;; in Guix bug #25227. This, however, would generate thousands of
-    ;; pages that could choke the current CVS repository.
-    ;;
-    ;; When this limitation is gone, the following builders should be
-    ;; used instead. They should generate pages as those described in
-    ;; the proposal.
-    ;;
-    ;;(index-builder)
-    ;;(packages-builder)
-    ;;(package-list-builder)
-    )))
+   (if (getenv "GUIX_WEB_SITE_INFO")
+       (list
+        (index-builder)
+        (packages-builder)
+        (package-list-builder))
+
+       ;; These provisional builders are used because of a limitation of
+       ;; the CVS repository used for deploying the website. The idea is
+       ;; to have "package list" and "package detail" pages as proposed
+       ;; in Guix bug #25227. This, however, would generate thousands of
+       ;; pages that could choke the current CVS repository.
+       ;;
+       ;; When this limitation is gone, the above builders should be
+       ;; used instead. They should generate pages as those described
+       ;; in the proposal.
+       (list
+        (detailed-index-builder)
+        (detailed-package-list-builder)))))