Packages

deeperl

0.5.0
0.10.0 0.9.0 0.8.0 0.7.0 0.6.0 0.5.0 0.4.0 0.2.0

Inofficial Erlang/OTP client application for the official DeepL API Version 2

HexDocs

Current section

Files

Jump to
Readme
8 Versions
2 Dependencies
Dependants
Files
Activity
deeperl src deeperl_languages.erl
Raw

src/deeperl_languages.erl 

%%% @private



-module(deeperl_languages).

-behavior(gen_deeperl_procedure).



%% API

-export([uri/0, body/1, response/1]).



-spec uri() -> nonempty_string().

uri() ->

    "/v2/languages".



-spec body(Args :: tuple()) -> iolist().

body(_) ->

    [].



-spec response(Data :: map()) -> deeperl:languages_result().

response(L) ->

    response(L, []).



-spec response(Data :: map(), Acc :: deeperl:languages_result()) -> deeperl:languages_result().

response([#{<<"language">> := Language, <<"name">> := Name}|R], Acc) ->

    Item = {list_to_atom(string:lowercase(unicode:characters_to_list(Language))), iolist_to_binary(Name)},

    response(R, [Item|Acc]);

response([], Acc) ->

    lists:reverse(Acc);

response(_, _Acc) ->

    {error, invalid_response}.