aboutsummaryrefslogtreecommitdiff
path: root/doc/modules
diff options
context:
space:
mode:
Diffstat (limited to 'doc/modules')
-rw-r--r--doc/modules/skribilo/documentation/api.scm126
1 files changed, 46 insertions, 80 deletions
diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 73c8a43..7ac194f 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -68,7 +68,47 @@
:action (lambda (n e)
(let ((c (engine-custom e 'title-background)))
(markup-option-add! n :bg c)
- (output n e tro)))))
+ (output n e tro))))
+
+ (markup-writer 'doc-markup he
+ :action (lambda (n e)
+ (let ((protos (markup-option n 'prototypes))
+ (opts (markup-option n 'options))
+ (params (markup-option n 'parameters))
+ (see (markup-option n 'see-also)))
+ (display "<div class=\"skribilo-doc-markup\">")
+ (for-each (lambda (p)
+ (output (! "\n<div \
+ class=\"skribilo-api-prototype\">$1</div>" p) e))
+ protos)
+ (for-each (match-lambda
+ ((name (engines ...) desc)
+ (output (! "\n<div
+ class=\"skribilo-api-option\"> \
+ <span class=\"skribilo-api-option-name\">$1</span> \
+ <span class=\"skribilo-api-option-description\">$2</span> \
+ <span class=\"skribilo-api-option-engines\">$3</span></div>"
+ name desc engines)
+ e)))
+ (or opts '()))
+
+ (for-each (match-lambda
+ ((param . desc)
+ (output (! "\n<div \
+ class=\"skribilo-api-argument\"> \
+ <span class=\"skribilo-api-argument-name\">$1</span> \
+ <span class=\"skribilo-api-argument-description\">$2</span></div>"
+ param desc)
+ e)))
+ (or params '()))
+
+ (when (pair? see)
+ (output (! "<div class=\"skribilo-api-see-also\">\
+See also $1</div>"
+ (punctuate see))
+ e))
+
+ (display "</div>\n")))))
;*---------------------------------------------------------------------*/
;* LaTeX configuration */
@@ -135,7 +175,7 @@ def @SkribiloExample named @Title {} right x {
:before "\n{ Courier Base 9p } @Font { lines nohyphen 0.9fx } @Break lout @Space {\n"
:after "\n} # @Break\n")
- (markup-writer 'doc-markup
+ (markup-writer 'doc-markup le
:action (lambda (n e)
(let ((protos (markup-option n 'prototypes))
(opts (markup-option n 'options))
@@ -177,7 +217,7 @@ def @SkribiloExample named @Title {} right x {
(display "\n@LP\n"))))
- (markup-writer 'doc-engine
+ (markup-writer 'doc-engine le
:action (lambda (n e)
(let ((customs (markup-option n 'customs))
(defaults (markup-option n 'defaults)))
@@ -652,78 +692,7 @@ def @SkribiloExample named @Title {} right x {
(define-markup-formals def)
dargs))
others od))))
- ;; doc table
- (define (doc-markup.html)
- (let ((df (map (lambda (f)
- (tr :bg *prgm-skribe-color*
- (td :colspan 2 :width 20. :align 'left
- (param (car f)) )
- (td :align 'left :width 80. (cadr f))))
- dformals))
- (dr (and (pair? drest)
- (tr :bg *prgm-skribe-color*
- (td :align 'left
- :valign 'top
- :colspan 2
- :width 20.
- (param (cadr (car drest))))
- (td :align 'left :width 80.
- (caddr (car drest))))))
- (do (map (lambda (f)
- (tr :bg *prgm-skribe-color*
- (td :align 'left
- :valign 'top
- :width 10.
- (param (car f)))
- (td :align 'left
- :valign 'top
- :width 20.
- (opt-engine-support (car f)))
- (td :align 'left :width 70. (cadr f))))
- doptions))
- (so (map (lambda (x)
- (let ((s (symbol->string x)))
- (list
- (ref :mark s :text (code s))
- " ")))
- see-also)))
- (table :&location &invocation-location
- :border (if (engine-format? "latex") 1 0)
- :width (if (engine-format? "latex") #f *prgm-width*)
- `(,(tr :class 'api-table-prototype
- (th :colspan 3 :align 'left :width *prgm-width*
- "prototype"))
- ,@(map (lambda (p)
- (tr :bg *prgm-skribe-color*
- (td :colspan 3 :width *prgm-width*
- :align 'left p)))
- p+)
- ,@(if (pair? do)
- `(,(tr :class 'api-table-header
- (th :align 'left "option"
- :width 10.)
- (th :align 'center "engines"
- :width 20.)
- (th "description"))
- ,@do)
- '())
- ,@(if (or (pair? df) dr)
- `(,(tr :class 'api-table-header
- (th :colspan 2
- :align 'left
- :width 30.
- "argument")
- (th "description"))
- ,@(if (pair? df) df '())
- ,@(if dr (list dr) '()))
- '())
- ,@(if (pair? so)
- `(,(tr :class 'api-table-header
- (th :colspan 3 :align 'left
- (it "See also")))
- ,(tr :bg *prgm-skribe-color*
- (td :colspan 3 :align 'left so)))
- '())))))
+
;; doc enumerate
(define (doc-markup.latex)
(let ((df (map (lambda (f)
@@ -810,11 +779,8 @@ def @SkribiloExample named @Title {} right x {
(cond
((engine-format? "latex")
(doc-markup.latex))
- ((or (engine-format? "lout")
- (engine-format? "info"))
- (doc-markup.generic))
- (else
- (center (doc-markup.html)))))))))
+ (else
+ (doc-markup.generic))))))))
;*---------------------------------------------------------------------*/
;* doc-engine ... */