From 542f6aad4b4455d9a1d6d824cb4377d084c76745 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Thu, 20 Nov 2008 23:43:09 +0100
Subject: info: Use `text-table', handle footnotes.
* src/guile/skribilo/engine/info.scm: Use the `text-table' module.
(document): Properly handle footnotes.
---
src/guile/skribilo/engine/info.scm | 29 +++++++++++++++++------------
1 file changed, 17 insertions(+), 12 deletions(-)
(limited to 'src')
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 27e959a..a1c3b81 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -33,6 +33,7 @@
:autoload (skribilo output) (output)
:autoload (skribilo debug) (*debug*)
:autoload (skribilo utils justify) (make-justifier)
+ :autoload (skribilo utils text-table) (table->ascii)
:use-module (srfi srfi-8)
:use-module (srfi srfi-13)
@@ -155,9 +156,11 @@
;*---------------------------------------------------------------------*/
(markup-writer 'document info-engine
:action (lambda (doc e)
- (let ((title (markup-option doc :title))
- (author (markup-option doc :author))
- (body (markup-body doc)))
+ (let ((title (markup-option doc :title))
+ (author (markup-option doc :author))
+ (body (markup-body doc))
+ (footnotes (reverse!
+ (container-env-get n 'footnote-env))))
(scribe-document->info doc (if title title "")
(if (list? authors)
authors
@@ -172,15 +175,17 @@
(newline)
(print "-------------")
;; FIXME: Handle footnotes.
-;; (for-each (lambda (fn)
-;; (with-access::%footnote fn (number note id)
-;; (output (string-append
-;; "*"
-;; (number->string number)
-;; ": "))
-;; (info note)
-;; (output-newline)))
-;; footnotes)
+ (for-each (lambda (fn)
+ (let ((label (markup-option fn :label))
+ (note (markup-body fn))
+ (id (markup-ident fn)))
+ (output (string-append "*"
+ (number->string number)
+ ": ")
+ e)
+ (output note e)
+ (output-newline)))
+ footnotes)
)))))))
;*---------------------------------------------------------------------*/
--
cgit v1.2.3