2 (define (doc-markup-function func)
5 (doc-str (procedure-documentation func) )
6 (f-name (symbol->string (procedure-name func)))
7 (sig (object-property func 'markup-signature))
8 (sig-str (string-join (map type-name sig) " "))
16 "}\n\n@findex " f-name "\n"
17 "\n\n@i{Argument types}: " sig-str
20 "\n\n@i{Description}: \n\n"
27 (define (markup-function<? a b)
28 (string<? (symbol->string (procedure-name a)) (symbol->string (procedure-name b))))
30 (define (markup-doc-node)
32 #:name "Markup functions"
33 #:desc "Definitions of the markup functions"
34 #:text (apply string-append
35 (map doc-markup-function
36 (sort markup-function-list markup-function<?) ))