From bdfed985ba33fe739a058da5395f9519ccb364cf Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 11 Oct 2006 07:44:12 +0000
Subject: 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
---
src/guile/skribilo/engine/lout.scm | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
(limited to 'src')
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
--
cgit 1.4.1