div-tag ( xml style -- xml' )


Vocabulary
html.streams.private

Inputs
xmlan object
stylean object


Outputs
xml'an object


Definition


: div-tag ( xml style -- xml' )
div-css-style [
swap 2 nenum T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml
] unless-empty ;