>From 6be0b25d387e4d2e21911b0f26afa3d9ebf4cc28 Mon Sep 17 00:00:00 2001
From: amirouche <address@hidden>
Date: Sat, 2 Sep 2017 01:27:13 +0200
Subject: [PATCH] work around immutability errors to build the documentation

* src/guile/skribilo/engine/html.scm (html-engine) make some custom
  keyword argument mutable
* src/guile/skribilo/engine/latex.scm (latex-engine) idem
* src/guile/skribilo/engine/lout.scm (lout-engine) idem
---
 src/guile/skribilo/engine/html.scm  | 18 +++++++++---------
 src/guile/skribilo/engine/latex.scm | 12 ++++++------
 src/guile/skribilo/engine/lout.scm  | 12 ++++++------
 3 files changed, 21 insertions(+), 21 deletions(-)

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index dc176af..b985f38 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -140,7 +140,7 @@
 					(#\" "&quot;")
 					(#\@ "&#x40;")))
 	 :custom `(;; the icon associated with the URL
-		   (favicon #f)
+		   ,(list 'favicon #f)
 		   ;; charset used
 		   (charset "ISO-8859-1")
 		   ;; enable/disable Javascript
@@ -148,13 +148,13 @@
 		   ;; user html head
 		   (head #f)
 		   ;; user CSS
-		   (css ())
+		   ,(list 'css '())
 		   ;; user inlined CSS
-		   (inline-css ())
+		   ,(list 'inline-css '())
 		   ;; user JS
-		   (js ())
+		   ,(list 'js '())
 		   ;; emit-sui
-		   (emit-sui #f)
+		   ,(list 'emit-sui #f)
 		   ;; the body
 		   (background #f)
 		   (foreground #f)
@@ -187,7 +187,7 @@
 		   (index-header-font-size #f) ;; +2.
 		   ;; chapter configuration
 		   (chapter-number->string number->string)
-		   (chapter-file #f)
+		   ,(list 'chapter-file #f)
 		   ;; section configuration
 		   (section-title-start "<h3>")
 		   (section-title-stop "</h3>")
@@ -195,7 +195,7 @@
 		   (section-title-foreground #f)
 		   (section-title-number-separator " ")
 		   (section-number->string number->string)
-		   (section-file #f)
+		   ,(list 'section-file #f)
 		   ;; subsection configuration
 		   (subsection-title-start "<h3>")
 		   (subsection-title-stop "</h3>")
@@ -203,7 +203,7 @@
 		   (subsection-title-foreground #f)
 		   (subsection-title-number-separator " ")
 		   (subsection-number->string number->string)
-		   (subsection-file #f)
+		   ,(list 'subsection-file #f)
 		   ;; subsubsection configuration
 		   (subsubsection-title-start "<h4>")
 		   (subsubsection-title-stop "</h4>")
@@ -211,7 +211,7 @@
 		   (subsubsection-title-foreground #f)
 		   (subsubsection-title-number-separator " ")
 		   (subsubsection-number->string number->string)
-		   (subsubsection-file #f)
+		   ,(list 'subsubsection-file #f)
 		   ;; source fontification
 		   (source-color #t)
 		   (source-comment-color "#ffa600")
diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm
index ea63924..92b05d8 100644
--- a/src/guile/skribilo/engine/latex.scm
+++ b/src/guile/skribilo/engine/latex.scm
@@ -355,20 +355,20 @@
 	 :format "latex"
 	 :delegate (find-engine 'base)
 	 :filter (make-string-replace latex-encoding)
-	 :custom '((documentclass "\\documentclass{article}")
+	 :custom '(,(list 'documentclass "\\documentclass{article}")
                    (encoding "UTF-8")
-                   (class-has-chapters? #f)
-		   (usepackage "\\usepackage{epsfig}\n")
-		   (predocument "\\newdimen\\oldframetabcolsep\n\\newdimen\\oldcolortabcolsep\n\\newdimen\\oldpretabcolsep\n")
+                   ,(list 'class-has-chapters? #f)
+		   ,(list 'usepackage "\\usepackage{epsfig}\n")
+		   ,(list 'predocument "\\newdimen\\oldframetabcolsep\n\\newdimen\\oldcolortabcolsep\n\\newdimen\\oldpretabcolsep\n")
 		   (postdocument #f)
-		   (maketitle "\\date{}\n\\maketitle")
+		   ,(list 'maketitle "\\date{}\n\\maketitle")
 		   (%font-size 0)
 		   ;; color
 		   (color #t)
 		   (color-usepackage "\\usepackage{color}\n")
 		   ;; hyperref
 		   (hyperref #t)
-		   (hyperref-usepackage "\\usepackage[setpagesize=false]{hyperref}\n")
+		   ,(list 'hyperref-usepackage "\\usepackage[setpagesize=false]{hyperref}\n")
 		   ;; source fontification
 		   (source-color #t)
 		   (source-comment-color "#ffa600")
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index a059af1..5adaa0d 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -570,19 +570,19 @@
 	       :filter (make-string-replace lout-encoding)
 	       :custom `(;; The underlying Lout document type, i.e. one
 			 ;; of `doc', `report', `book' or `slides'.
-			 (document-type doc)
+			 ,(list 'document-type 'doc)
 
 			 ;; Document style file include line (a string
 			 ;; such as address@hidden { doc-style.lout }') or
 			 ;; `auto' (symbol) in which case the include
 			 ;; file is deduced from `document-type'.
-			 (document-include auto)
+			 ,(list 'document-include 'auto)
 
                          ;; Encoding of the output file.
                          (encoding "ISO-8859-1")
 
-			 (includes "@SysInclude { tbl }\n")
-			 (initial-font "Palatino Base 10p")
+			 ,(list 'includes "@SysInclude { tbl }\n")
+			 ,(list 'initial-font "Palatino Base 10p")
 			 (initial-break
 			  ,(string-append "unbreakablefirst "
 					  "unbreakablelast "
@@ -590,7 +590,7 @@
 
 			 ;; The document's language, used for hyphenation
 			 ;; and other things.
-			 (initial-language "English")
+			 ,(list 'initial-language "English")
 
 			 ;; Number of columns.
 			 (column-number 1)
@@ -623,7 +623,7 @@
                          (publisher #f)
                          (edition #f)
                          (before-title-page #f)
-                         (on-title-page #f)
+                         ,(list 'on-title-page #f)
                          (after-title-page #f)
                          (at-end #f)
 
-- 
2.11.0