19 lines
392 B
Scheme
19 lines
392 B
Scheme
|
(load "overall-wrapper.scm")
|
||
|
|
|
||
|
|
(load "../guile-docs/docs.scm")
|
||
|
|
|
||
|
|
(define (render-module module)
|
||
|
|
(let ((docs (docs-in-module module)))
|
||
|
|
(overall-wrapper
|
||
|
|
`(main ,(map render-doc docs)))))
|
||
|
|
|
||
|
|
|
||
|
|
(define (render-doc doc)
|
||
|
|
`((hgroup
|
||
|
|
(h1 ,(doc-symbol doc))
|
||
|
|
(p "In " ,(doc-module doc)))
|
||
|
|
(p ,(or (doc-documentation doc) ""))))
|
||
|
|
|
||
|
|
|
||
|
|
(render-module (resolve-interface '(srfi srfi-19)))
|