From f648eb505cd7a63af01f2fdfed4a269014e2f9da Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 11 Oct 2006 07:39:58 +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: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-61
---
 src/guile/skribilo/engine/lout.scm | 14 ++++++++------
 1 file 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
-- 
cgit v1.2.3