IN: temporary
USING: html io kernel namespaces styles test ;
[
"<html>&'sgml'"
] [ "&'sgml'" chars>entities ] unit-test
[ "/foo/bar" ]
[
[
"/home/slava/doc/" "doc-root" set
"/home/slava/doc/foo/bar" file-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 "Monospaced" } }
html-format
] string-out
] unit-test
[ "car" ]
[
[
"car"
H{ { foreground { 1 0 1 1 } } }
html-format
] string-out
] unit-test
[
"FooFoo
"
] [
[
"Foo" [ ] html-document
] string-out
] unit-test
[
"FooFoo
Hi
"
] [
[
"Foo" [ "Hi" write ] simple-html-document
] string-out
] unit-test