simple-link ( xml url -- xml' )

Vocabulary

html

Inputs

xml	an object
url	an object

Outputs

xml'

an object

Definition

USING: kernel present urls xml.data xml.syntax.private ;

IN: html

: simple-link ( xml url -- xml' )
    >url present swap 2 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag
                    { name ~name~ }
                    { attrs ~attrs~ }
                    { children ~vector~ }
                }
                ""
            }
        }
    } interpolate-xml ;