From 75dda8c29f7bcd852c0950eaa2b39c27787dd97e Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Mon, 30 Dec 2013 10:48:38 +0900 Subject: [PATCH] Adding sxml->xml utility. --- lib/chibi/sxml.scm | 4 ++++ lib/chibi/sxml.sld | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/chibi/sxml.scm b/lib/chibi/sxml.scm index 469310af..20172878 100644 --- a/lib/chibi/sxml.scm +++ b/lib/chibi/sxml.scm @@ -101,6 +101,10 @@ ((null? sxml)) (else (html-display-escaped-string sxml out)))))) +(define (sxml->xml sxml) + (call-with-output-string + (lambda (out) (sxml-display-as-html sxml out)))) + ;; utility to render sxml as simple text, stripping all tags (define (sxml-strip sxml) (call-with-output-string diff --git a/lib/chibi/sxml.sld b/lib/chibi/sxml.sld index a578d54e..e0a9f298 100644 --- a/lib/chibi/sxml.sld +++ b/lib/chibi/sxml.sld @@ -1,5 +1,5 @@ (define-library (chibi sxml) - (export sxml-display-as-html sxml-display-as-text sxml-strip) + (export sxml->xml sxml-display-as-html sxml-display-as-text sxml-strip) (import (scheme base) (scheme write)) (include "sxml.scm"))