From 54ae61cd32d6580791aff55bfce96386fdff9550 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2007 16:01:58 +0100
Subject: doc: Improve building using the Lout engine, with a `book' style.

* doc/modules/skribilo/documentation/api.scm (doc-engine): Use
  `ctrtable' instead of `table'.

* doc/modules/skribilo/documentation/manual.scm: Add customs for the
  `lout' engine.
  (ctrtable): New.
  (prgm): Don't center frames in Lout.

* doc/user/Makefile.am (EXTRA_DIST): Add `lout/book-style.lout'.
  (%.ps): Add "-r4 -I$(srcdir)/lout".

* doc/user/char.skb: Use `ctrtable' instead of `(center (table...' for
  the list of chars.

* doc/user/markup.skb: Add emacsology.

* doc/user/package.skb: Don't show the sample code with non-HTML
  engines.

* doc/user/src/html-navtabs.skb: Fix typo.

* doc/user/user.skb: Don't produce out-of-chapter text in Lout.
---
 doc/user/char.skb | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

(limited to 'doc/user/char.skb')

diff --git a/doc/user/char.skb b/doc/user/char.skb
index b2f94e2..c56c455 100644
--- a/doc/user/char.skb
+++ b/doc/user/char.skb
@@ -79,21 +79,20 @@ of the capacity of the targeted format.])
 
 (p [Here is the list of recognized symbols:])
 
-(center
- (apply table 
-	:width *prgm-width*
-	(tr :class 'api-symbol-prototype (th "Symbol name") (th "Rendering"))
-	(map (lambda (s)
-		(tr :bg  *prgm-skribe-color*
-		    (td :align 'left s)
-		    (td :align 'left (symbol s))))
-	     (sort (let ((t (make-hashtable)))
-		      (for-each (lambda (e)
-				   (for-each (lambda (s)
-						(hashtable-put! t (car s) (car s)))
-					     (engine-symbol-table e)))
-				*api-engines*)
-		      (hashtable->list t))
-		   string<?))))))
+(apply ctrtable
+       :width *prgm-width*
+       (tr :class 'api-symbol-prototype (th "Symbol name") (th "Rendering"))
+       (map (lambda (s)
+               (tr :bg  *prgm-skribe-color*
+                   (td :align 'left s)
+                   (td :align 'left (symbol s))))
+            (sort (let ((t (make-hashtable)))
+                     (for-each (lambda (e)
+                                  (for-each (lambda (s)
+                                               (hashtable-put! t (car s) (car s)))
+                                            (engine-symbol-table e)))
+                               *api-engines*)
+                     (hashtable->list t))
+                  string<?)))))
 
 
-- 
cgit v1.2.3