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