IN: html.components

GENERIC: render* ( value name renderer -- xml )

USING: accessors html.components kernel xml.data
xml.syntax.private ;

M: checkbox render*
[ "true" and ] [ ] [ label>> ] tri* 3 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;

USING: accessors html.components kernel xml.data
xml.syntax.private ;

M:: choice render* ( value name choice -- xml )
choice size>> :> size choice multiple>> "true" and
:> multiple value choice render-options :> contents H{
{ "name" name }
{ "multiple" multiple }
{ "contents" contents }
{ "size" size }
} T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;

USING: accessors html.components html.forms kernel
xmode.code2html ;

M: code render*
[ ?split-lines ] [ drop ] [ mode>> value ] tri*
htmlize-lines ;

USING: html.components kernel lcs.diff2html ;

M: comparison render* 2drop htmlize-diff ;

USING: accessors farkup html.components kernel namespaces ;

M: farkup render*
[
nip [
no-follow>>
[ string>boolean link-no-follow? set ] when*
] [
disable-images>>
[ string>boolean disable-images? set ] when*
] [
parsed>> string>boolean
[ (write-farkup) ] [ farkup>xml ] if
] tri
] with-scope ;

USING: accessors html.components ;

M: field render* size>> "text" render-field ;

USING: html.components kernel xml.data xml.syntax.private ;

M: hidden render*
drop 2 nenum T{ xml-chunk
{ seq
V{
""