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


Vocabulary
farkup

Inputs and outputs
hrefan object
textan object
xmlan object


Definition


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