+ | A.Symbol (literal, Some (None,desc)) ->
+ let literal = to_unicode literal in
+ let attr = [ None, "title", desc ] in
+ Box.Text (attr, literal)
+ | A.Symbol (literal, Some (Some u,desc)) ->
+ let literal = to_unicode literal in
+ let attr = [ None, "title", desc; None, "href", u ] in
+ Box.Text (attr, literal)
+ | A.Symbol (literal, _) -> Box.Text ([], to_unicode literal)
+ | A.Ident (literal, `Uri u) ->
+ let attr = [ None, "href", u ] in
+ let literal = to_unicode literal in
+ Box.Text (attr,literal)