+ | A.Literal (_,`Symbol (s,x))
+ | A.Literal (_,`Keyword (s,x))
+ | A.Literal (_,`Number (s,x)) ->
+ let attr =
+ match x with
+ | None, None -> []
+ | Some u, None -> [ None, "href", u ]
+ | None, Some d -> [ None, "title", d ]
+ | Some u, Some d -> [ None, "href", u; None, "title", d ]
+ in
+ Box.Text (attr, to_unicode s)