FAQ convienence word
parent
d8c82ccace
commit
a290ea57cc
|
@ -108,3 +108,6 @@ C: <faq> faq
|
||||||
"header" [ dup faq-header , ] tag,
|
"header" [ dup faq-header , ] tag,
|
||||||
faq-lists [ question-list>xml , nl, ] each
|
faq-lists [ question-list>xml , nl, ] each
|
||||||
] make-xml ;
|
] make-xml ;
|
||||||
|
|
||||||
|
: read-write-faq ( xml-stream -- )
|
||||||
|
[ read-xml ] with-stream xml>faq faq>html write-xml ;
|
||||||
|
|
Loading…
Reference in New Issue