summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-12 16:39:13 +0200
committerLudovic Courtès2012-05-12 16:39:13 +0200
commitb30a6f90d9a512e4cba4e0a27c07d910e8652202 (patch)
tree8f0aee07abf74949ddaa5e445714873a4169d35b /src
parent8013a82d0968375396a8700dd8bb733bd2df4e8c (diff)
downloadskribilo-b30a6f90d9a512e4cba4e0a27c07d910e8652202.tar.gz
skribilo-b30a6f90d9a512e4cba4e0a27c07d910e8652202.tar.lz
skribilo-b30a6f90d9a512e4cba4e0a27c07d910e8652202.zip
info: Produce a `makeinfo'-conforming document title.
* src/guile/skribilo/engine/info.scm (scribe-document->info)[info-title]: Produce a `makeinfo'-conforming title, which gets pretty-printed in Emacs.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/engine/info.scm17
1 files changed, 6 insertions, 11 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 16e5b26..0e0db02 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -276,22 +276,17 @@
(info-authorsN authors 3 #t)))))))
;; display the title and the authors
(define (info-title title authors)
+ (let ((title (ast->string title)))
+ (display title)
+ (newline)
+ (display (make-string (string-length title) #\*))
+ (newline))
+
(with-justification
(make-justifier (justification-width) 'center)
(lambda ()
- (output-justified (make-string *text-column-width* #\=))
- (output-newline)
- (if (string? title)
- (output-justified
- (list->string
- (apply append
- (map (lambda (c) (list c #\bs))
- (string->list title)))))
- (output title e))
(output-newline)
(info-authors authors)
- (output-justified (make-string *text-column-width* #\=))
- (output-newline)
(output-newline)
(output-flush *margin*))))