let set_opt_attr name value obj = match value with | None -> obj | Some v -> obj >>> AXOJs.Node.set_attribute name v ; obj