FAQ convienence word

2007-12-10 00:37:32 -05:00 · 2007-12-10 00:37:32 -05:00 · a290ea57cc
parent d8c82ccace
commit a290ea57cc
1 changed files with 3 additions and 0 deletions
--- a/extra/faq/faq.factor
+++ b/extra/faq/faq.factor
@ -108,3 +108,6 @@ C: <faq> faq
        "header" [ dup faq-header , ] tag,
        faq-lists [ question-list>xml , nl, ] each
    ] make-xml ;
+
+: read-write-faq ( xml-stream -- )
+    [ read-xml ] with-stream xml>faq faq>html write-xml ;