diff options
| author | Ludovic Court`es | 2006-11-13 09:59:50 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2006-11-13 09:59:50 +0000 |
| commit | 69e3db9b7750f8f0642701551de033fef07cc276 (patch) | |
| tree | 0de4e63636ade2d3b0020cfa42acda868cc32fd6 | |
| parent | 335e750ba0c5dcc4a33216c2021e7c02068dc4e4 (diff) | |
| download | skribilo-69e3db9b7750f8f0642701551de033fef07cc276.tar.gz skribilo-69e3db9b7750f8f0642701551de033fef07cc276.tar.lz skribilo-69e3db9b7750f8f0642701551de033fef07cc276.zip | |
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
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 18 |
1 files changed, 11 insertions, 7 deletions
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")))) |