let get_opt_att atts name =
  let name = String.lowercase name in
  try Some
      (snd (List.find
              (fun (s, _) -> String.lowercase s = name)
              atts)
      )
  with Not_found ->
    None