From 69e3db9b7750f8f0642701551de033fef07cc276 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 13 Nov 2006 09:59:50 +0000
Subject: Lout engine: Better cover sheet for `doc' documents.

* src/guile/skribilo/engine/lout.scm (lout-make-doc-cover-sheet):
  Improved spacing.  Moved `date-line' after `author'.  Provide a default
  value for `date-line' when it's `#t'.

git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-73
---
 src/guile/skribilo/engine/lout.scm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'src/guile')

diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 92977e7..db93257 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -432,18 +432,22 @@
        (output title engine)
        (display "The Lout Document"))
     (display " }\n")
-    (display "//1.7fx\n")
-    (if date-line
-	(begin
-	  (display "@Center { ")
-	  (output date-line engine)
-	  (display " }\n//1.4fx\n")))
+    (display "//2.0fx\n")
     (if author
        (begin
          (display "@Center { ")
          (output author engine)
          (display " }\n")
-         (display "//4fx\n")))
+         (display "//4.6fx\n")))
+    (if date-line
+	(begin
+	  (display "@Center { ")
+	  (output (if (eq? #t date-line)
+                      (strftime "%e %B %Y" (localtime (current-time)))
+                      date-line)
+                  engine)
+	  (display " }\n//1.7fx\n")))
+    (display "//0.5fx\n")
     (if multi-column?
 	(display "\n} # @FullWidth\n"))))
 
-- 
cgit v1.2.3