>From 6be0b25d387e4d2e21911b0f26afa3d9ebf4cc28 Mon Sep 17 00:00:00 2001
From: amirouche
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 @@
(#\" """)
(#\@ "@")))
: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 "")
(section-title-stop "
")
@@ -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 "")
(subsection-title-stop "
")
@@ -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 "")
(subsubsection-title-stop "
")
@@ -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