From b30a6f90d9a512e4cba4e0a27c07d910e8652202 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 12 May 2012 16:39:13 +0200
Subject: 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.
---
 src/guile/skribilo/engine/info.scm | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

(limited to 'src/guile')

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*))))
 
-- 
cgit v1.2.3