diff options
| author | Ludovic Court`es | 2006-07-24 11:53:19 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-07-24 11:53:19 +0000 |
| commit | 3a7c4a562510115f1d2ebb386a6f4e0ff9f42cc7 (patch) | |
| tree | 91206f5cbdba07626f24a5bb1b26a1cc4d555e5d | |
| parent | c033b58b276b5805b358d3073aa2d8c9103566ec (diff) | |
| download | skribilo-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.scm | 2 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 3 |
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 "[ " |