IN: temporary
USE: html
USE: namespaces
USE: stdio
USE: streams
USE: strings
USE: test
USE: kernel
[
"<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
] with-string
] unit-test
[ "" ]
[
[
[ ] [ drop ] span-tag
] with-string
] unit-test
[ "car" ]
[
[
[ [ "fg" 255 0 255 ] [[ "font" "Monospaced" ]] ]
[ drop "car" write ]
span-tag
] with-string
] unit-test
: html-write-attr ( string style -- string )
[ write-attr ] with-html-stream ;
[ "hello world" ]
[
[ "hello world" [ ] html-write-attr ] with-string
] unit-test
[ "car" ]
[
[
"car"
[ [ "fg" 255 0 255 ] [[ "font" "Monospaced" ]] ]
html-write-attr
] with-string
] unit-test
[
"FooFoo
"
] [
[
"Foo" [ ] html-document
] with-string
] unit-test
[
"FooFoo
Hi
"
] [
[
"Foo" [ "Hi" write ] simple-html-document
] with-string
] unit-test