Packages

feeder

2.3.0
2.3.2 2.3.1 2.3.0 2.2.4 2.2.3 2.2.2 2.2.1 2.2.0 2.1.0 2.0.2 2.0.1 2.0.0 1.4.7 1.4.6 1.4.5 1.4.4 1.4.3 1.4.2 1.4.1 1.2.1 1.2.0 1.1.1

Stream parse RSS and Atom formatted XML feeds.

HexDocs

Current section

Files

Jump to
Readme
22 Versions
0 Dependencies
Dependants
Files
Activity
feeder src feeder_elements.erl
Raw

src/feeder_elements.erl 

%%

%% feeder_elements - Qualify elements by name

%%



-module(feeder_elements).



-ifdef(TEST).

-include_lib("eunit/include/eunit.hrl").

-endif.



-export([qname/1]).



qname({"atom", "link"}) -> url;

qname({_, "author"}) -> author;

qname({_, "category"}) -> category;

qname({_, "channel"}) -> feed;

qname({_, "contributor"}) -> author;

qname({_, "creator"}) -> author;

qname({_, "description"}) -> summary;

qname({_, "duration"}) -> duration;

qname({_, "enclosure"}) -> enclosure;

qname({_, "entry"}) -> entry;

qname({_, "feed"}) -> feed;

qname({_, "guid"}) -> id;

qname({_, "id"}) -> id;

qname({_, "image"}) -> image;

qname({_, "item"}) -> entry;

qname({_, "language"}) -> language;

qname({_, "link"}) -> link;

qname({_, "name"}) -> name;

qname({_, "pubDate"}) -> updated;

qname({_, "subtitle"}) -> subtitle;

qname({_, "summary"}) -> summary;

qname({_, "title"}) -> title;

qname({_, "updated"}) -> updated;

qname({_, "url"}) -> url;

qname({_, _}) -> undefined.



-ifdef(TEST).



q([{Wanted, QualifiedNames}|T], Tests) ->

  F = fun (QualifiedName) -> ?_assertMatch(Wanted, qname(QualifiedName)) end,

  q(T, [Tests|lists:map(F, QualifiedNames)]);

q([], Tests) ->

  Tests.

qname_test_() -> q([

  {author, [{"", "author"}]},

  {category, [{"", "category"}]},

  {duration, [{"", "duration"}]},

  {enclosure, [{"", "enclosure"}]},

  {entry, [{"", "entry"}, {"", "item"}]},

  {feed, [{"", "feed"}, {"", "channel"}]},

  {id, [{"", "id"}, {"", "guid"}]},

  {image, [{"", "image"}]},

  {language, [{"", "language"}]},

  {link, [{"", "link"}]},

  {name, [{"", "name"}]},

  {subtitle, [{"", "subtitle"}]},

  {summary, [{"", "summary"}, {"", "description"}]},

  {title, [{"", "title"}]},

  {undefined, [{"", "wtf"}, {"", ""}, {"", "!"}]},

  {updated, [{"", "updated"}, {"", "pubDate"}]},

  {url, [{"atom", "link"}]}

], []).



-endif.