Generate basic HTML skeleton.

src/export-web-static.scm

@@ -34,6 +34,7 @@
  (import scheme
 	 (chicken base)
 	 (chicken format)
+	 (chicken pathname)
 	 brmember
 	 util-dir
 	 mbase)
@@ -49,14 +50,16 @@
    (print "</body>")
    (print "</html>"))
 
- (define (gen-html-member mr)
+ (define (gen-html-member mr dir)
    (let ((fname (format "~A.html" (brmember-id mr))))
-     #f))
+     (with-output-to-file (make-pathname dir (format "~A.html" (brmember-nick mr)))
+       (lambda ()
+	 (print-html-member mr)))))
 
  (define (gen-html-members mb dir)
    (ensure-directory dir)
    (with-mbase-progress%
     mb dir mr
-    (print mr)))
+    (gen-html-member mr dir)))
 
  )