aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-11 07:39:58 +0000
committerLudovic Court`es2006-10-11 07:39:58 +0000
commitf648eb505cd7a63af01f2fdfed4a269014e2f9da (patch)
tree655ceaadda322c92f79f37e33d6cb69cfc318e30 /src/guile
parent19dffc6bdf3c048312352f2f702dc18c9afb88e6 (diff)
downloadskribilo-f648eb505cd7a63af01f2fdfed4a269014e2f9da.tar.gz
skribilo-f648eb505cd7a63af01f2fdfed4a269014e2f9da.tar.lz
skribilo-f648eb505cd7a63af01f2fdfed4a269014e2f9da.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: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-61
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm14
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