diff options
| author | Ludovic Courtès | 2012-05-12 16:39:13 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-12 16:39:13 +0200 |
| commit | b30a6f90d9a512e4cba4e0a27c07d910e8652202 (patch) | |
| tree | 8f0aee07abf74949ddaa5e445714873a4169d35b | |
| parent | 8013a82d0968375396a8700dd8bb733bd2df4e8c (diff) | |
| download | skribilo-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.
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 17 |
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*)))) |