scm/document-markup.scm

   1
   2 (define (doc-markup-function func)
   3   (let*
   4       (
   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) " "))
   9        )
  10
  11
  12
  13   (string-append
  14    "\n\n@b{"
  15    f-name
  16    "}\n\n@findex " f-name "\n"
  17    "\n\n@i{Argument types}: " sig-str
  18    (if (string? doc-str)
  19        (string-append
  20         "\n\n@i{Description}: \n\n"
  21         doc-str)
  22        "")
  23
  24
  25   )))
  26
  27
  28 (define (markup-doc-node)
  29   (make <texi-node>
  30     #:name "Markup functions"
  31     #:desc "Definitions of the markup functions"
  32     #:text (apply string-append
  33                   (map doc-markup-function markup-function-list) )
  34     ))
  35
  36