aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-11 07:44:12 +0000
committerLudovic Court`es2006-10-11 07:44:12 +0000
commitbdfed985ba33fe739a058da5395f9519ccb364cf (patch)
tree655ceaadda322c92f79f37e33d6cb69cfc318e30 /src/guile
parentd4360259d60722eaa175a483f792fce7b8c66d97 (diff)
downloadskribilo-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
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