diff options
| author | Ludovic Courtès | 2007-12-01 16:59:20 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-12-01 16:59:20 +0100 |
| commit | ad89f8efd5519eb8d40c2fec368c960a6a8e48bc (patch) | |
| tree | bb66dd397d88ea902447cd606ded8b397fff9fd1 /doc/modules | |
| parent | b815b312080bdafa7b6d1b8c2617f2bac8591f3e (diff) | |
| download | skribilo-ad89f8efd5519eb8d40c2fec368c960a6a8e48bc.tar.gz skribilo-ad89f8efd5519eb8d40c2fec368c960a6a8e48bc.tar.lz skribilo-ad89f8efd5519eb8d40c2fec368c960a6a8e48bc.zip | |
doc: Improved rendering of `example' in Lout.
* doc/modules/skribilo/documentation/manual.scm: Add `lout' writer for
`example'.
(example-produce): Remove `(it "Example:")'.
Diffstat (limited to 'doc/modules')
| -rw-r--r-- | doc/modules/skribilo/documentation/manual.scm | 26 |
1 files changed, 23 insertions, 3 deletions
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm index 86629a2..6df032e 100644 --- a/doc/modules/skribilo/documentation/manual.scm +++ b/doc/modules/skribilo/documentation/manual.scm @@ -68,6 +68,26 @@ e))))) ;*---------------------------------------------------------------------*/ +;* Lout configuration */ +;*---------------------------------------------------------------------*/ +(let ((le (find-engine 'lout))) + (markup-writer 'example le + :options '(:legend :number) + :action (lambda (n e) + (let ((ident (markup-ident n)) + (number (markup-option n :number)) + (legend (markup-option n :legend))) + (evaluate-document (mark ident) e) + (display "\n@LP\n5c @Wide @FullWidthRule\n@LP\n") + (output (list (! "{ Schoolbook Bold 1.0f } @Font { $1 }" + (list (format #f "Example ~a. " number) + legend)) + (! "\n@LP\n") + (markup-body n)) + e))))) + + +;*---------------------------------------------------------------------*/ ;* html-browsing-extra ... */ ;*---------------------------------------------------------------------*/ (define (html-browsing-extra n e) @@ -240,10 +260,10 @@ ;* example-produce ... */ ;*---------------------------------------------------------------------*/ (define-markup (example-produce example . produce) - (list (it "Example:") - example + (list example (if (pair? produce) - (list (paragraph "Produces:") (car produce))))) + (list (paragraph "... produces:") + (car produce))))) ;*---------------------------------------------------------------------*/ ;* markup-ref ... */ |