write-image-link ( href text -- xml )

Vocabulary

farkup

Inputs

href	an object
text	an object

Outputs

xml

an object

Definition

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

IN: farkup

: write-image-link ( href text -- xml )
    disable-images? get [
        2drop T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        }
    ] [
        [ check-url drop ] [ f like ] bi* 2 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag { name ~name~ } { attrs ~attrs~ } }
                    ""
                }
            }
        } interpolate-xml
    ] if ;