aboutsummaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorLudovic Courtès2007-12-01 16:59:20 +0100
committerLudovic Courtès2007-12-01 16:59:20 +0100
commitad89f8efd5519eb8d40c2fec368c960a6a8e48bc (patch)
treebb66dd397d88ea902447cd606ded8b397fff9fd1 /doc
parentb815b312080bdafa7b6d1b8c2617f2bac8591f3e (diff)
downloadskribilo-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')
-rw-r--r--doc/modules/skribilo/documentation/manual.scm26
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 ... */