IN: temporary
USING: html http io kernel namespaces styles test xml ;
[
"/responder/foo?z=%20"
] [
"/responder/foo" H{ { "z" " " } } build-url
] unit-test
[
"<html>&'sgml'"
] [ "&'sgml'" chars>entities ] unit-test
[ "/foo/bar" ]
[
[
"/home/slava/doc/" "doc-root" set
"/home/slava/doc/foo/bar" browser-link-href
] with-scope
] unit-test
[ "" ]
[
[
H{ } [ drop ] span-tag
] string-out
] unit-test
: html-format ( string style -- string )
[ format ] with-html-stream ;
[ "hello world" ]
[
[ "hello world" H{ } html-format ] string-out
] unit-test
[ "car" ]
[
[
"car"
H{ { font "monospace" } }
html-format
] string-out
] unit-test
[ "car" ]
[
[
"car"
H{ { foreground { 1 0 1 1 } } }
html-format
] string-out
] unit-test