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