write-link ( href text -- xml )


Vocabulary
farkup

Inputs
hrefan object
textan object


Outputs
xmlan object


Definition


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