From fc06ea3d9d01bf7c4a4c6cc444301d0554d3dc91 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 11 Apr 2015 23:34:47 -0400
Subject: html: Add sxml->html-string.

* haunt/build/html.scm (sxml->html-string): New procedure.
---
 haunt/build/html.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/haunt/build/html.scm b/haunt/build/html.scm
index b95ca81..5c6455d 100644
--- a/haunt/build/html.scm
+++ b/haunt/build/html.scm
@@ -28,7 +28,8 @@
   #:use-module (ice-9 match)
   #:use-module (ice-9 format)
   #:use-module (ice-9 hash-table)
-  #:export (sxml->html))
+  #:export (sxml->html
+            sxml->html-string))
 
 (define %void-elements
   '(area
@@ -368,3 +369,9 @@ list ATTRS and the child nodes in BODY."
      (string->escaped-html text port))
     ;; Render arbitrary Scheme objects, too.
     (obj (object->escaped-html obj port))))
+
+(define (sxml->html-string sxml)
+  "Render SXML as an HTML string."
+  (call-with-output-string
+   (lambda (port)
+     (sxml->html sxml port))))
-- 
cgit v1.2.3