simple-image ( url -- xml )

Vocabulary

html

Inputs

url

an object

Outputs

xml

an object

Definition

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

IN: html

: simple-image ( url -- xml )
    >url present 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { attrs ~attrs~ } }
                ""
            }
        }
    } interpolate-xml ;