%%%-----------------------------------------------------------------------------
%%% @copyright (C) 2010-2019, 2600Hz
%%% @doc Sets the language to use for the rest of the call.
%%%
%%% <h4>Data options:</h4>
%%% <dl>
%%%   <dt>`language'</dt>
%%%   <dd>Language to set. Default is `en'</dd>
%%% </dl>
%%%
%%% @end
%%%-----------------------------------------------------------------------------
-module(cf_language).

-behaviour(gen_cf_action).

-include("callflow.hrl").

-export([handle/2]).

%%------------------------------------------------------------------------------
%% @doc Entry point for this module
%% @end
%%------------------------------------------------------------------------------
-spec handle(kz_json:object(), kapps_call:call()) -> 'ok'.
handle(Data, Call) ->
    Lang = kz_json:get_value(<<"language">>, Data),
    lager:info("setting call's language to '~s'", [Lang]),
    Call1 = kapps_call:set_language(Lang, Call),

    kapps_call_command:set(kz_json:from_list([{<<"default_language">>, Lang}])
                          ,'undefined'
                          ,Call1
                          ),
    cf_exe:set_call(Call1),
    cf_exe:continue(Call1).