diff options
| author | Ludovic Court`es | 2006-10-11 07:44:12 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-10-11 07:44:12 +0000 |
| commit | bdfed985ba33fe739a058da5395f9519ccb364cf (patch) | |
| tree | 655ceaadda322c92f79f37e33d6cb69cfc318e30 | |
| parent | d4360259d60722eaa175a483f792fce7b8c66d97 (diff) | |
| download | skribilo-bdfed985ba33fe739a058da5395f9519ccb364cf.tar.gz skribilo-bdfed985ba33fe739a058da5395f9519ccb364cf.tar.lz skribilo-bdfed985ba33fe739a058da5395f9519ccb364cf.zip | |
Lout engine: Honor `date-line' for slides.
* src/guile/skribilo/engine/lout.scm (document): Honor `date-line' for
`slides' (was only honored for `report').
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-2
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index 893ab2e..f087d55 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1051,23 +1051,25 @@ (output institution e) (printf " }\n")))))))) + (if (memq doc-type '(report slides)) + (let ((date-line (engine-custom e 'date-line))) + (display " @DateLine { ") + (if (or (string? date-line) (ast? date-line)) + (output date-line e) + (display (if date-line "Yes" "No"))) + (display " }\n"))) + ;; Lout reports make it possible to choose whether to prepend ;; a cover sheet (books and docs don't). Same for a date ;; line. (if (eq? doc-type 'report) (let ((cover-sheet? (engine-custom e 'cover-sheet?)) - (date-line (engine-custom e 'date-line)) (abstract (engine-custom e 'abstract)) (abstract-title (engine-custom e 'abstract-title))) (display (string-append " @CoverSheet { " (if cover-sheet? "Yes" "No") " }\n")) - (display " @DateLine { ") - (if (string? date-line) - (output date-line e) - (display (if date-line "Yes" "No"))) - (display " }\n") (if abstract (begin |