diff options
| author | Ludovic Courtès | 2007-12-01 16:01:58 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-12-01 16:01:58 +0100 |
| commit | 54ae61cd32d6580791aff55bfce96386fdff9550 (patch) | |
| tree | 628ad90a727839e76f0c2f20dcf058e6f895b4a7 /doc/user/char.skb | |
| parent | dc4a68366c60ae8c0e9f2f4632d28bd8cae52cd0 (diff) | |
| download | skribilo-54ae61cd32d6580791aff55bfce96386fdff9550.tar.gz skribilo-54ae61cd32d6580791aff55bfce96386fdff9550.tar.lz skribilo-54ae61cd32d6580791aff55bfce96386fdff9550.zip | |
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.
Diffstat (limited to 'doc/user/char.skb')
| -rw-r--r-- | doc/user/char.skb | 31 |
1 files changed, 15 insertions, 16 deletions
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<?))))) |