bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit dd52a32d66d3a3c40f383ddbe8d64b620e95e939
parent 2dde4a25aa51d68831ff6204de3f75c559f8ad96
Author: Eli Barzilay <eli@barzilay.org>
Date:   Wed, 16 Jun 2010 02:52:42 -0400

Move xml->string to a more proper place

original commit: 5da56167a996f591f3f170b9ab0c06af8ca0c399

Diffstat:
M
collects/meta/web/html/xml.rkt
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/collects/meta/web/html/xml.rkt b/collects/meta/web/html/xml.rkt
@@ -2,7 +2,7 @@
 
 ;; XML-like objects and functions, with rendering
 
-(require scribble/text)
+(require scribble/text racket/port)
 
 ;; ----------------------------------------------------------------------------
 ;; Represent attribute names as `foo:' symbols.  They are made self-quoting in
@@ -61,6 +61,10 @@
 (define (output-xml content [p (current-output-port)])
   (output (disable-prefix (with-writer (xml-writer) content)) p))
 
+(provide xml->string)
+(define (xml->string content)
+  (with-output-to-string (lambda () (output-xml content))))
+
 ;; ----------------------------------------------------------------------------
 ;; Structs for xml data: elements, literals, entities