>From 8d61be9cdd787265b7bb7e1232546f5e7f3997e3 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <address@hidden>
Date: Thu, 7 May 2015 21:21:02 +0200
Subject: [PATCH 1/3] website: Enable directory choice in export procedure.

---
 website/www.scm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/website/www.scm b/website/www.scm
index 38a0d0d..2949102 100644
--- a/website/www.scm
+++ b/website/www.scm
@@ -321,9 +321,11 @@ lists")))))
     (lambda (port)
       (sxml->xml page port))))
 
-(define (export-web-site)
-  "Export the whole web site as HTML files created in the current directory."
+(define* (export-web-site #:optional (directory "."))
+  "Export the whole web site as HTML files created in DIRECTORY."
   (for-each (match-lambda
-              ((file page)
-               (export-web-page page file)))
+              ((filename page)
+               (export-web-page page (string-append directory
+						    file-name-separator-string
+						    filename))))
             %web-pages))
-- 
2.2.1