aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Court`es2006-11-17 09:05:31 +0000
committerLudovic Court`es2006-11-17 09:05:31 +0000
commit62443764135d6810a8e45d888b282344c5de42a5 (patch)
tree0de4e63636ade2d3b0020cfa42acda868cc32fd6 /src
parentac3be3e363a8c8b496f5eeff5ac6c62f2b14780e (diff)
downloadskribilo-62443764135d6810a8e45d888b282344c5de42a5.tar.gz
skribilo-62443764135d6810a8e45d888b282344c5de42a5.tar.lz
skribilo-62443764135d6810a8e45d888b282344c5de42a5.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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-15
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/lout.scm18
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"))))