write-link ( href text -- xml )


Vocabulary
farkup

Inputs and outputs
hrefan object
textan object
xmlan object


Definition


: write-link ( href text -- xml )
[ check-url link-no-follow? get "nofollow" and ] dip 3 nenum
T{ xml-chunk
{ seq
V{
""
T{ tag
{ name ~name~ }
{ attrs ~attrs~ }
{ children ~vector~ }
}
""
}
}
} interpolate-xml ;