summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2006-07-24 11:53:19 +0000
committerLudovic Court`es2006-07-24 11:53:19 +0000
commit3a7c4a562510115f1d2ebb386a6f4e0ff9f42cc7 (patch)
tree91206f5cbdba07626f24a5bb1b26a1cc4d555e5d
parentc033b58b276b5805b358d3073aa2d8c9103566ec (diff)
downloadskribilo-3a7c4a562510115f1d2ebb386a6f4e0ff9f42cc7.tar.gz
skribilo-3a7c4a562510115f1d2ebb386a6f4e0ff9f42cc7.tar.lz
skribilo-3a7c4a562510115f1d2ebb386a6f4e0ff9f42cc7.zip
Lout engine: Fixed handling of `:keywords' for `document'.
* src/guile/skribilo/engine/lout.scm (lout-pdf-docinfo): Check whether the `:keywords' is `#f' and use an empty list if so. * src/guile/skribilo/engine/html.scm (&html-generic-document): Don't fill `options' for HEAD. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-30
-rw-r--r--src/guile/skribilo/engine/html.scm2
-rw-r--r--src/guile/skribilo/engine/lout.scm3
2 files changed, 2 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 843f099..c290189 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -1209,8 +1209,6 @@
(markup '&html-head)
(ident (string-append id "-head"))
(class (markup-class n))
- (options (the-options (list :keywords
- (markup-option n :keywords))))
(parent n)
(body (list header meta))))
(ftnote (new markup
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 7922de2..cb7c6fa 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -814,7 +814,8 @@
t
(markup-option doc :title))))
(keywords (or (engine-custom engine 'pdf-keywords)
- (map ast->string (markup-option doc :keywords))))
+ (map ast->string
+ (or (markup-option doc :keywords) '()))))
(extra-fields (engine-custom engine 'pdf-extra-info)))
(string-append "[ "