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