+let uri tu tx =
+ P.sprintf "@\"%s\" \"%s\"" tu tx
+
+let name tn =
+ P.sprintf "$\"%s\"" tn
+
+
+let text = function
+ | T.Plain s -> P.sprintf "\"%s\"" s
+ | T.Link (true, uri, s) -> P.sprintf "@(\"%s\" \"%s\")" uri s
+ | T.Link (false, uri, s) -> P.sprintf "@@(\"%s\" \"%s\")" uri s
+