Consume DataCite API data

consumer.erl

-module(consumer).
%% API
-export([execute_query/0]).

parse_item(Data) ->
  ID = maps:get(<<"id">>, Data),
  Item = maps:get(<<"attributes">>, Data),
  DOI = maps:get(<<"doi">>, Item),
  Title = maps:get(<<"title">>, Item),
  Published = maps:get(<<"published">>, Item),
  Updated = maps:get(<<"updated">>, Item),
  AuthorList = maps:get(<<"author">>, Item),
  Author = maps:get(<<"literal">>, hd(AuthorList)),
  #{<<"id">> => ID, <<"DOI">> => DOI, <<"title">> => Title, <<"author">> => Author,
    <<"published">> => Published, <<"updated">> => Updated}.

parse_list(List) ->
  parse_list(List, []).

parse_list([H|T], Acc) ->
  Item = parse_item(H),
  parse_list(T, [Item | Acc]);
parse_list([], Acc) ->
  #{<<"listitems">> => Acc}.

parse_response({_Status, _Header, Body}) ->
  R = list_to_binary(Body),
  Json = jsx:decode(R, [return_maps]),
  Data = maps:get(<<"data">>, Json),
  parse_list(Data);
parse_response(_) ->
  nodata.

execute_query() ->
  URL = "https://api.datacite.org/works?query=%22tennessee+valley+authority%22&resource-type-id=dataset&sort=published&rows=2",
  case httpc:request(URL) of
    {ok, Result} ->
      {ok, parse_response(Result)};
    Response ->
      Response
  end.