div-tag ( xml style -- xml' )

Vocabulary

html.streams.private

Inputs

xml	an object
style	an object

Outputs

xml'

an object

Definition

USING: kernel sequences xml.data xml.syntax.private ;

IN: html.streams.private

: 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 ;