let get_guid xmls =
   try
    match List.find (find_ele "guid") xmls with
      Element (_,atts,[PCData s]) ->
        Some { guid_name = s ;
               guid_permalink =
                 (get_att ~required: false atts "ispermalink") <> "false" ;
             }
    | _ ->
        None
  with
    Not_found ->
      None