%%%-----------------------------------------------------------------------------
%%% @copyright (C) 2017, Voxter Communications
%%% @doc
%%% @author Daniel Finke
%%% @end
%%%-----------------------------------------------------------------------------
-module(acdc_announcements_sup).

-behaviour(supervisor).

%% API
-export([start_link/0]).
-export([maybe_start_announcements/3
        ,stop_announcements/1
        ]).

%% Supervisor callbacks
-export([init/1]).

-include("acdc.hrl").

-define(SERVER, ?MODULE).
-define(CHILDREN, [?WORKER('acdc_announcements')]).

%%%=============================================================================
%%% API functions
%%%=============================================================================

%%------------------------------------------------------------------------------
%% @doc Starts the supervisor.
%% @end
%%------------------------------------------------------------------------------
-spec start_link() -> kz_types:sup_startchild_ret().
start_link() ->
    supervisor:start_link({local, ?SERVER}, ?MODULE, []).

%%------------------------------------------------------------------------------
%% @doc Start an announcements child if either position or wait time
%% announcements are enabled
%%
%% @end
%%------------------------------------------------------------------------------
-spec maybe_start_announcements(pid(), kapps_call:call(), kz_term:proplist()) -> supervisor:startchild_ret() | 'false'.
maybe_start_announcements(Manager, Call, Props) ->
    Enabled = props:get_is_true(<<"position_announcements_enabled">>, Props, 'false')
        orelse props:get_is_true(<<"wait_time_announcements_enabled">>, Props, 'false'),
    Enabled
        andalso supervisor:start_child(?SERVER, [Manager, Call, Props]).

%%------------------------------------------------------------------------------
%% @doc Stop an announcements child process
%% @end
%%------------------------------------------------------------------------------
-spec stop_announcements(pid()) -> 'ok' | {'error', atom()}.
stop_announcements(Pid) ->
    supervisor:terminate_child(?SERVER, Pid).

%%%=============================================================================
%%% Supervisor callbacks
%%%=============================================================================

%%------------------------------------------------------------------------------
%% @doc Whenever a supervisor is started using `supervisor:start_link/[2,3]',
%% this function is called by the new process to find out about
%% restart strategy, maximum restart intensity, and child
%% specifications.
%%
%% @end
%%------------------------------------------------------------------------------
-spec init(list()) -> kz_types:sup_init_ret().
init([]) ->

    SupFlags = #{strategy => simple_one_for_one,
                 intensity => 1,
                 period => 5},

    {ok, {SupFlags, ?CHILDREN}}.

%%%=============================================================================
%%% Internal functions
%%%=============================================================================