Hacks for not having modules yet, so lazy.lol

guile-docs/docs.scm

@@ -1,6 +1,4 @@
-(define-module (guile-docs docs)
+(use-modules (srfi srfi-9))
-  #:use-module (srfi srfi-9)
-  #:export (docs-in-module))
 
 (define-record-type <doc>
   (make-doc module symbol documentation)

public/index.scm

@@ -1,5 +1,5 @@
 ;; TODO: move to modules - need to set up pre-inst-env or w/e
-(define overall-wrapper (load "overall-wrapper.scm"))
+(load "overall-wrapper.scm")
 
 (overall-wrapper
  '(main

public/module.scm

@@ -0,0 +1,18 @@
+(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)))

public/overall-wrapper.scm

@@ -1,5 +1,5 @@
 ;; todo: module
-(lambda (content)
+(define (overall-wrapper content)
   `(html
     (link (@ (rel "stylesheet")
              (type "text/css")