-module(telega@reply).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([with_text/2, with_markup/3, with_dice/2, edit_text/2, forward/2, answer_callback_query/2]).

-spec with_text(telega@bot:context(any()), binary()) -> {ok,
        telega@model:message()} |
    {error, binary()}.
with_text(Ctx, Text) ->
    telega@api:send_message(
        erlang:element(5, erlang:element(4, Ctx)),
        telega@model:new_send_message_parameters(
            {stringed, erlang:element(2, Ctx)},
            Text
        )
    ).

-spec with_markup(
    telega@bot:context(any()),
    binary(),
    telega@model:reply_markup()
) -> {ok, telega@model:message()} | {error, binary()}.
with_markup(Ctx, Text, Reply_markup) ->
    telega@api:send_message(
        erlang:element(5, erlang:element(4, Ctx)),
        begin
            _pipe = telega@model:new_send_message_parameters(
                {stringed, erlang:element(2, Ctx)},
                Text
            ),
            telega@model:set_send_message_parameters_reply_markup(
                _pipe,
                Reply_markup
            )
        end
    ).

-spec with_dice(
    telega@bot:context(any()),
    gleam@option:option(telega@model:send_dice_parameters())
) -> {ok, telega@model:message()} | {error, binary()}.
with_dice(Ctx, Parameters) ->
    Parameters@1 = begin
        _pipe = Parameters,
        gleam@option:lazy_unwrap(
            _pipe,
            fun() ->
                telega@model:new_send_dice_parameters(
                    {stringed, erlang:element(2, Ctx)}
                )
            end
        )
    end,
    telega@api:send_dice(
        erlang:element(5, erlang:element(4, Ctx)),
        Parameters@1
    ).

-spec edit_text(
    telega@bot:context(any()),
    telega@model:edit_message_text_parameters()
) -> {ok, telega@model:edit_message_text_result()} | {error, binary()}.
edit_text(Ctx, Parameters) ->
    telega@api:edit_message_text(
        erlang:element(5, erlang:element(4, Ctx)),
        Parameters
    ).

-spec forward(
    telega@bot:context(any()),
    telega@model:forward_message_parameters()
) -> {ok, telega@model:message()} | {error, binary()}.
forward(Ctx, Parameters) ->
    telega@api:forward_message(
        erlang:element(5, erlang:element(4, Ctx)),
        Parameters
    ).

-spec answer_callback_query(
    telega@bot:context(any()),
    telega@model:answer_callback_query_parameters()
) -> {ok, boolean()} | {error, binary()}.
answer_callback_query(Ctx, Parameters) ->
    telega@api:answer_callback_query(
        erlang:element(5, erlang:element(4, Ctx)),
        Parameters
    ).