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
[ "
" ]
[
[
""
[ [[ icon "library/icons/File.png" ]] ]
[ drop ] icon-tag
] string-out
] unit-test
[ "" ]
[
[
[ ] [ drop ] span-tag
] string-out
] unit-test
[ "car" ]
[
[
[ [ foreground 255 0 255 ] [[ font "Monospaced" ]] ]
[ drop "car" write ]
span-tag
] string-out
] unit-test
: html-format ( string style -- string )
[ format ] with-html-stream ;
[ "hello world" ]
[
[ "hello world" [ ] html-format ] string-out
] unit-test
[ "car" ]
[
[
"car"
[ [ foreground 255 0 255 ] [[ font "Monospaced" ]] ]
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