summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-01-30 18:01:40 +0100
committerLudovic Courtès2008-01-30 18:01:40 +0100
commit92715cf0c58f41b580cab2c1a8d0e5112a230287 (patch)
treea38aefde4caecbd5936cc4fc1f5bf97e7579ba3a
parent3f1236d7d85509269f2c3040cef589658e2e3d44 (diff)
downloadskribilo-92715cf0c58f41b580cab2c1a8d0e5112a230287.tar.gz
skribilo-92715cf0c58f41b580cab2c1a8d0e5112a230287.tar.lz
skribilo-92715cf0c58f41b580cab2c1a8d0e5112a230287.zip
doc: Add nice rendering of `doc-engine' in Lout.
* doc/modules/skribilo/documentation/api.scm (doc-engine): New `lout' writer. (doc-engine): Check for Lout.
-rw-r--r--doc/modules/skribilo/documentation/api.scm110
1 files changed, 76 insertions, 34 deletions
diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 0a52300..9007610 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -103,18 +103,18 @@
(params (markup-option n 'parameters))
(see (markup-option n 'see-also)))
;;(format #t "\n@LP\n@DocHeading { Prototype }\n@LP\n")
- (format #t "\n@LP\n{ oragged nohyphen } @Break { ")
+ (display "\n@LP\n{ oragged nohyphen } @Break { ")
(for-each (lambda (p)
(output (! "\n@LP\n$1" p) e))
protos)
- (format #t "\n} @LP\n\n")
+ (display "\n} @LP\n\n")
(and (pair? opts)
(for-each (lambda (o)
- (let ((name (list-ref o 0))
- (engines (list-ref o 1))
- (desc (list-ref o 2)))
+ (let ((name (car o))
+ (engines (cadr o))
+ (desc (caddr o)))
(output (list (! "\n|2fx { ")
- (! "\n{ $1 } @Right { $2 }"
+ (! "\n//1.0fx\n{ $1 } @Right { $2 }"
(tt name) (sf engines))
(! "\n@LP\n|2fx { $1 } }\n@LP\n"
desc))
@@ -125,7 +125,7 @@
(let ((name (car p))
(desc (cdr p)))
(output (list (! "\n|2fx { ")
- (! "\n{ $1 }" (tt name))
+ (! "\n//1.0fx{ $1 }" (tt name))
(! "\n@LP\n|2fx { $1 } }\n@LP\n"
desc))
e)))
@@ -136,7 +136,30 @@
(punctuate see))
e))
- (format #t "\n@LP\n")))))
+ (display "\n@LP\n"))))
+
+ (markup-writer 'doc-engine
+ :action (lambda (n e)
+ (let ((customs (markup-option n 'customs))
+ (defaults (markup-option n 'defaults)))
+
+ (display "\n@LP\n")
+ (for-each (lambda (c)
+ (let* ((name (car c))
+ (desc (cadr c))
+ (default (assq name defaults)))
+ (output (list (! "\n//1.0fx\n{ $1 } @Right { $2 }"
+ (tt (symbol->string name))
+ (and (pair? default)
+ (tt
+ (with-output-to-string
+ (lambda ()
+ (write (cadr default)))))))
+ (! "\n@LP\n|2fx { $1 }\n@LP\n"
+ desc))
+ e)))
+ customs)
+ (display "\n@LP\n")))))
(define (punctuate lst)
;; Punctuate words (ASTs) listed in LST.
@@ -684,9 +707,9 @@
;* doc-engine ... */
;*---------------------------------------------------------------------*/
(define-markup (doc-engine id args
- :rest
+ :rest
opts
- :key
+ :key
(idx *custom-index*)
source
(skribe-source? #t)
@@ -701,30 +724,49 @@
skribe-source?)))
(c (make-engine-custom d)))
(doc-check-arguments id c args)
- (cond
- ((engine-format? "latex")
- #f)
- (else
- (apply ctrtable
- :&location &invocation-location
- :width *prgm-width*
- (tr :class 'api-table-header
- (th :align 'left :width 20. "custom")
- (th :width 10. "default")
- (th "description"))
- (map (lambda (r)
- (tr :bg *prgm-skribe-color*
- (td :align 'left :valign 'top
- (list (index (symbol->string (car r))
- :index idx
- :note (format #f "~a custom"
- id))
- (symbol->string (car r))))
- (let ((def (assq (car r) c)))
- (td :valign 'top
- (code (exp->skribe (cadr def)))))
- (td :align 'left :valign 'top (cadr r))))
- (filter cadr args)))))))))
+ (resolve (lambda (n e env)
+ (cond
+ ((engine-format? "latex" e)
+ (skribe-warning "`doc-engine' not rendered in LaTeX")
+ #f)
+ ((engine-format? "lout" e)
+ (list (map (lambda (c)
+ (index (symbol->string (car c))
+ :index idx
+ :note (format #f "~a custom"
+ id)))
+ c)
+ (new container
+ (markup 'doc-engine)
+ (ident (gensym "doc-engine"))
+ (class #f)
+ (loc &invocation-location)
+ (options `((customs ,args)
+ (defaults ,c))))))
+ (else
+ (let ((make-row-for-custom
+ (lambda (r)
+ (tr :bg *prgm-skribe-color*
+ (td :align 'left :valign 'top
+ (list (index (symbol->string (car r))
+ :index idx
+ :note (format #f "~a custom"
+ id))
+ (symbol->string (car r))))
+ (let ((def (assq (car r) c)))
+ (td :valign 'top
+ (code (exp->skribe (cadr def)))))
+ (td :align 'left :valign 'top (cadr r))))))
+
+ (apply ctrtable
+ :&location &invocation-location
+ :width *prgm-width*
+ (tr :class 'api-table-header
+ (th :align 'left :width 20. "custom")
+ (th :width 10. "default")
+ (th "description"))
+ (map make-row-for-custom
+ (filter cadr args))))))))))))
;;; Local Variables: