guile-docs/public/module.scm

19 lines
392 B
Scheme
Raw Normal View History

(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)))