Current section
Files
Jump to
Current section
Files
src/telega@model.erl
-module(telega@model).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).
-export([new_botcommand_parameters/0, decode_bot_command/1, bot_commands_from/1, decode_user/1, decode_message_entity/1, decode_inline_button/1, decode_inline_markup/1, decode_message/1, decode_update/1, new_send_dice_parameters/1, decode_webhook_info/1, bot_command_scope_to_json/1, encode_botcommand_parameters/1, encode_user/1, encode_message_entity/1, encode_reply_parameters/1, encode_send_dice_parameters/1]).
-export_type([update/0, chat/0, message/0, bot_command/0, bot_command_scope/0, bot_command_parameters/0, user/0, message_entity/0, inline_keyboard_button/0, inline_keyboard_markup/0, keyboard/0, reply_parameters/0, reply_markup/0, send_dice_parameters/0, webhook_info/0, int_or_string/0]).
-type update() :: {update, message(), integer()}.
-type chat() :: {chat,
integer(),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(boolean())}.
-type message() :: {message,
integer(),
gleam@option:option(integer()),
gleam@option:option(user()),
gleam@option:option(chat()),
gleam@option:option(integer()),
integer(),
chat(),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(message()),
gleam@option:option(user()),
gleam@option:option(integer()),
gleam@option:option(boolean()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(list(message_entity())),
gleam@option:option(binary()),
gleam@option:option(list(message_entity())),
gleam@option:option(boolean()),
gleam@option:option(list(user())),
gleam@option:option(user()),
gleam@option:option(binary()),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(integer()),
gleam@option:option(integer()),
gleam@option:option(binary()),
gleam@option:option(inline_keyboard_markup())}.
-type bot_command() :: {bot_command, binary(), binary()}.
-type bot_command_scope() :: bot_command_default_scope |
bot_command_all_private_chats_scope |
bot_command_scope_all_group_chats |
bot_command_scope_all_chat_administrators |
{bot_command_scope_chat, integer()} |
{bot_command_scope_chat_string, int_or_string()} |
{bot_command_scope_chat_administrators, int_or_string()} |
{bot_command_scope_chat_member, int_or_string(), integer()}.
-type bot_command_parameters() :: {bot_command_parameters,
gleam@option:option(bot_command_scope()),
gleam@option:option(binary())}.
-type user() :: {user,
integer(),
boolean(),
binary(),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(boolean()),
gleam@option:option(boolean())}.
-type message_entity() :: {message_entity,
binary(),
integer(),
integer(),
gleam@option:option(binary()),
gleam@option:option(user()),
gleam@option:option(binary()),
gleam@option:option(binary())}.
-type inline_keyboard_button() :: {inline_keyboard_button,
binary(),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(boolean())}.
-type inline_keyboard_markup() :: {inline_keyboard_markup,
list(list(inline_keyboard_button()))}.
-type keyboard() :: keyboard.
-type reply_parameters() :: {reply_parameters,
integer(),
gleam@option:option(int_or_string()),
gleam@option:option(boolean()),
gleam@option:option(binary()),
gleam@option:option(binary()),
gleam@option:option(list(message_entity())),
gleam@option:option(integer())}.
-type reply_markup() :: {reply_inline_keyboard_markup,
list(list(inline_keyboard_button()))} |
{reply_keyboard_markup,
list(list(keyboard())),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(binary()),
gleam@option:option(boolean())} |
{reply_keyboard_remove, boolean(), gleam@option:option(boolean())}.
-type send_dice_parameters() :: {send_dice_parameters,
integer(),
gleam@option:option(integer()),
gleam@option:option(binary()),
gleam@option:option(boolean()),
gleam@option:option(boolean()),
gleam@option:option(reply_parameters())}.
-type webhook_info() :: {webhook_info,
binary(),
boolean(),
integer(),
gleam@option:option(binary()),
gleam@option:option(integer()),
gleam@option:option(binary()),
gleam@option:option(integer()),
gleam@option:option(integer()),
gleam@option:option(list(binary()))}.
-type int_or_string() :: {int, integer()} | {string, binary()}.
-spec decode_chat(gleam@dynamic:dynamic_()) -> {ok, chat()} |
{error, list(gleam@dynamic:decode_error())}.
decode_chat(Json) ->
_pipe = Json,
(gleam@dynamic:decode5(
fun(Field@0, Field@1, Field@2, Field@3, Field@4) -> {chat, Field@0, Field@1, Field@2, Field@3, Field@4} end,
gleam@dynamic:field(<<"id"/utf8>>, fun gleam@dynamic:int/1),
gleam@dynamic:optional_field(
<<"username"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"first_name"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"last_name"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"is_forum"/utf8>>,
fun gleam@dynamic:bool/1
)
))(_pipe).
-spec all_errors({ok, any()} | {error, list(gleam@dynamic:decode_error())}) -> list(gleam@dynamic:decode_error()).
all_errors(Result) ->
case Result of
{ok, _} ->
[];
{error, Errors} ->
Errors
end.
-spec new_botcommand_parameters() -> bot_command_parameters().
new_botcommand_parameters() ->
{bot_command_parameters, none, none}.
-spec decode_bot_command(gleam@dynamic:dynamic_()) -> {ok, list(bot_command())} |
{error, list(gleam@dynamic:decode_error())}.
decode_bot_command(Json) ->
_pipe = Json,
(gleam@dynamic:list(
gleam@dynamic:decode2(
fun(Field@0, Field@1) -> {bot_command, Field@0, Field@1} end,
gleam@dynamic:field(<<"command"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:field(
<<"description"/utf8>>,
fun gleam@dynamic:string/1
)
)
))(_pipe).
-spec bot_commands_from(list({binary(), binary()})) -> list(bot_command()).
bot_commands_from(Commands) ->
_pipe = Commands,
gleam@list:map(
_pipe,
fun(Command) ->
{Command@1, Description} = Command,
{bot_command, Command@1, Description}
end
).
-spec decode_user(gleam@dynamic:dynamic_()) -> {ok, user()} |
{error, list(gleam@dynamic:decode_error())}.
decode_user(Json) ->
_pipe = Json,
(gleam@dynamic:decode8(
fun(Field@0, Field@1, Field@2, Field@3, Field@4, Field@5, Field@6, Field@7) -> {user, Field@0, Field@1, Field@2, Field@3, Field@4, Field@5, Field@6, Field@7} end,
gleam@dynamic:field(<<"id"/utf8>>, fun gleam@dynamic:int/1),
gleam@dynamic:field(<<"is_bot"/utf8>>, fun gleam@dynamic:bool/1),
gleam@dynamic:field(<<"first_name"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:optional_field(
<<"last_name"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"username"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"language_code"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"is_premium"/utf8>>,
fun gleam@dynamic:bool/1
),
gleam@dynamic:optional_field(
<<"added_to_attachment_menu"/utf8>>,
fun gleam@dynamic:bool/1
)
))(_pipe).
-spec decode_message_entity(gleam@dynamic:dynamic_()) -> {ok, message_entity()} |
{error, list(gleam@dynamic:decode_error())}.
decode_message_entity(Json) ->
_pipe = Json,
(gleam@dynamic:decode7(
fun(Field@0, Field@1, Field@2, Field@3, Field@4, Field@5, Field@6) -> {message_entity, Field@0, Field@1, Field@2, Field@3, Field@4, Field@5, Field@6} end,
gleam@dynamic:field(<<"type"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:field(<<"offset"/utf8>>, fun gleam@dynamic:int/1),
gleam@dynamic:field(<<"length"/utf8>>, fun gleam@dynamic:int/1),
gleam@dynamic:optional_field(<<"url"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:optional_field(<<"user"/utf8>>, fun decode_user/1),
gleam@dynamic:optional_field(
<<"language"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"custom_emoji_id"/utf8>>,
fun gleam@dynamic:string/1
)
))(_pipe).
-spec decode_inline_button(gleam@dynamic:dynamic_()) -> {ok,
inline_keyboard_button()} |
{error, list(gleam@dynamic:decode_error())}.
decode_inline_button(Json) ->
_pipe = Json,
(gleam@dynamic:decode6(
fun(Field@0, Field@1, Field@2, Field@3, Field@4, Field@5) -> {inline_keyboard_button, Field@0, Field@1, Field@2, Field@3, Field@4, Field@5} end,
gleam@dynamic:field(<<"text"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:optional_field(<<"url"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:optional_field(
<<"callback_data"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"switch_inline_query"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"switch_inline_query_current_chat"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(<<"pay"/utf8>>, fun gleam@dynamic:bool/1)
))(_pipe).
-spec decode_inline_markup(gleam@dynamic:dynamic_()) -> {ok,
inline_keyboard_markup()} |
{error, list(gleam@dynamic:decode_error())}.
decode_inline_markup(Json) ->
_pipe = Json,
(gleam@dynamic:decode1(
fun(Field@0) -> {inline_keyboard_markup, Field@0} end,
gleam@dynamic:field(
<<"inline_keyboard"/utf8>>,
gleam@dynamic:list(gleam@dynamic:list(fun decode_inline_button/1))
)
))(_pipe).
-spec decode_message(gleam@dynamic:dynamic_()) -> {ok, message()} |
{error, list(gleam@dynamic:decode_error())}.
decode_message(Json) ->
Decode_message_id = gleam@dynamic:field(
<<"message_id"/utf8>>,
fun gleam@dynamic:int/1
),
Decode_message_thread_id = gleam@dynamic:optional_field(
<<"message_thread_id"/utf8>>,
fun gleam@dynamic:int/1
),
Decode_from = gleam@dynamic:optional_field(
<<"from"/utf8>>,
fun decode_user/1
),
Decode_sender_chat = gleam@dynamic:optional_field(
<<"sender_chat"/utf8>>,
fun decode_chat/1
),
Decode_sender_boost_count = gleam@dynamic:optional_field(
<<"sender_boost_count"/utf8>>,
fun gleam@dynamic:int/1
),
Decode_date = gleam@dynamic:field(<<"date"/utf8>>, fun gleam@dynamic:int/1),
Decode_chat = gleam@dynamic:field(<<"chat"/utf8>>, fun decode_chat/1),
Decode_is_topic_message = gleam@dynamic:optional_field(
<<"is_topic_message"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_is_automatic_forward = gleam@dynamic:optional_field(
<<"is_automatic_forward"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_reply_to_message = gleam@dynamic:optional_field(
<<"reply_to_message"/utf8>>,
fun decode_message/1
),
Decode_via_bot = gleam@dynamic:optional_field(
<<"via_bot"/utf8>>,
fun decode_user/1
),
Decode_edit_date = gleam@dynamic:optional_field(
<<"edit_date"/utf8>>,
fun gleam@dynamic:int/1
),
Decode_has_protected_content = gleam@dynamic:optional_field(
<<"has_protected_content"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_media_group_id = gleam@dynamic:optional_field(
<<"media_group_id"/utf8>>,
fun gleam@dynamic:string/1
),
Decode_author_signature = gleam@dynamic:optional_field(
<<"author_signature"/utf8>>,
fun gleam@dynamic:string/1
),
Decode_text = gleam@dynamic:optional_field(
<<"text"/utf8>>,
fun gleam@dynamic:string/1
),
Decode_entities = gleam@dynamic:optional_field(
<<"entities"/utf8>>,
gleam@dynamic:list(fun decode_message_entity/1)
),
Decode_caption = gleam@dynamic:optional_field(
<<"caption"/utf8>>,
fun gleam@dynamic:string/1
),
Decode_caption_entities = gleam@dynamic:optional_field(
<<"caption_entities"/utf8>>,
gleam@dynamic:list(fun decode_message_entity/1)
),
Decode_has_media_spoiler = gleam@dynamic:optional_field(
<<"has_media_spoiler"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_new_chat_members = gleam@dynamic:optional_field(
<<"new_chat_members"/utf8>>,
gleam@dynamic:list(fun decode_user/1)
),
Decode_left_chat_member = gleam@dynamic:optional_field(
<<"left_chat_member"/utf8>>,
fun decode_user/1
),
Decode_new_chat_title = gleam@dynamic:optional_field(
<<"new_chat_title"/utf8>>,
fun gleam@dynamic:string/1
),
Decode_delete_chat_photo = gleam@dynamic:optional_field(
<<"delete_chat_photo"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_group_chat_created = gleam@dynamic:optional_field(
<<"group_chat_created"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_supergroup_chat_created = gleam@dynamic:optional_field(
<<"supergroup_chat_created"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_channel_chat_created = gleam@dynamic:optional_field(
<<"channel_chat_created"/utf8>>,
fun gleam@dynamic:bool/1
),
Decode_migrate_to_chat_id = gleam@dynamic:optional_field(
<<"migrate_to_chat_id"/utf8>>,
fun gleam@dynamic:int/1
),
Decode_migrate_from_chat_id = gleam@dynamic:optional_field(
<<"migrate_from_chat_id"/utf8>>,
fun gleam@dynamic:int/1
),
Decode_connected_website = gleam@dynamic:optional_field(
<<"connected_website"/utf8>>,
fun gleam@dynamic:string/1
),
Decode_inline_keyboard_markup = gleam@dynamic:optional_field(
<<"reply_markup"/utf8>>,
fun decode_inline_markup/1
),
case {Decode_message_id(Json),
Decode_message_thread_id(Json),
Decode_from(Json),
Decode_sender_chat(Json),
Decode_sender_boost_count(Json),
Decode_date(Json),
Decode_chat(Json),
Decode_is_topic_message(Json),
Decode_is_automatic_forward(Json),
Decode_reply_to_message(Json),
Decode_via_bot(Json),
Decode_edit_date(Json),
Decode_has_protected_content(Json),
Decode_media_group_id(Json),
Decode_author_signature(Json),
Decode_text(Json),
Decode_entities(Json),
Decode_caption(Json),
Decode_caption_entities(Json),
Decode_has_media_spoiler(Json),
Decode_new_chat_members(Json),
Decode_left_chat_member(Json),
Decode_new_chat_title(Json),
Decode_delete_chat_photo(Json),
Decode_group_chat_created(Json),
Decode_supergroup_chat_created(Json),
Decode_channel_chat_created(Json),
Decode_migrate_to_chat_id(Json),
Decode_migrate_from_chat_id(Json),
Decode_connected_website(Json),
Decode_inline_keyboard_markup(Json)} of
{{ok, Message_id},
{ok, Message_thread_id},
{ok, From},
{ok, Sender_chat},
{ok, Sender_boost_count},
{ok, Date},
{ok, Chat},
{ok, Is_topic_message},
{ok, Is_automatic_forward},
{ok, Reply_to_message},
{ok, Via_bot},
{ok, Edit_date},
{ok, Has_protected_content},
{ok, Media_group_id},
{ok, Author_signature},
{ok, Text},
{ok, Entities},
{ok, Caption},
{ok, Caption_entities},
{ok, Has_media_spoiler},
{ok, New_chat_members},
{ok, Left_chat_member},
{ok, New_chat_title},
{ok, Delete_chat_photo},
{ok, Group_chat_created},
{ok, Supergroup_chat_created},
{ok, Channel_chat_created},
{ok, Migrate_to_chat_id},
{ok, Migrate_from_chat_id},
{ok, Connected_website},
{ok, Inline_keyboard_markup}} ->
{ok,
{message,
Message_id,
Message_thread_id,
From,
Sender_chat,
Sender_boost_count,
Date,
Chat,
Is_topic_message,
Is_automatic_forward,
Reply_to_message,
Via_bot,
Edit_date,
Has_protected_content,
Media_group_id,
Author_signature,
Text,
Entities,
Caption,
Caption_entities,
Has_media_spoiler,
New_chat_members,
Left_chat_member,
New_chat_title,
Delete_chat_photo,
Group_chat_created,
Supergroup_chat_created,
Channel_chat_created,
Migrate_to_chat_id,
Migrate_from_chat_id,
Connected_website,
Inline_keyboard_markup}};
{Message_id@1,
Message_thread_id@1,
From@1,
Sender_chat@1,
Sender_boost_count@1,
Date@1,
Chat@1,
Is_topic_message@1,
Is_automatic_forward@1,
Reply_to_message@1,
Via_bot@1,
Edit_date@1,
Has_protected_content@1,
Media_group_id@1,
Author_signature@1,
Text@1,
Entities@1,
Caption@1,
Caption_entities@1,
Has_media_spoiler@1,
New_chat_members@1,
Left_chat_member@1,
New_chat_title@1,
Delete_chat_photo@1,
Group_chat_created@1,
Supergroup_chat_created@1,
Channel_chat_created@1,
Migrate_to_chat_id@1,
Migrate_from_chat_id@1,
Connected_website@1,
Inline_keyboard_markup@1} ->
{error,
gleam@list:concat(
[all_errors(Message_id@1),
all_errors(Message_thread_id@1),
all_errors(From@1),
all_errors(Sender_chat@1),
all_errors(Sender_boost_count@1),
all_errors(Date@1),
all_errors(Chat@1),
all_errors(Is_topic_message@1),
all_errors(Is_automatic_forward@1),
all_errors(Reply_to_message@1),
all_errors(Via_bot@1),
all_errors(Edit_date@1),
all_errors(Has_protected_content@1),
all_errors(Media_group_id@1),
all_errors(Author_signature@1),
all_errors(Text@1),
all_errors(Entities@1),
all_errors(Caption@1),
all_errors(Caption_entities@1),
all_errors(Has_media_spoiler@1),
all_errors(New_chat_members@1),
all_errors(Left_chat_member@1),
all_errors(New_chat_title@1),
all_errors(Delete_chat_photo@1),
all_errors(Group_chat_created@1),
all_errors(Supergroup_chat_created@1),
all_errors(Channel_chat_created@1),
all_errors(Migrate_to_chat_id@1),
all_errors(Migrate_from_chat_id@1),
all_errors(Connected_website@1),
all_errors(Inline_keyboard_markup@1)]
)}
end.
-spec decode_update(gleam@dynamic:dynamic_()) -> {ok, update()} |
{error, list(gleam@dynamic:decode_error())}.
decode_update(Json) ->
_pipe = Json,
(gleam@dynamic:decode2(
fun(Field@0, Field@1) -> {update, Field@0, Field@1} end,
gleam@dynamic:field(<<"message"/utf8>>, fun decode_message/1),
gleam@dynamic:field(<<"update_id"/utf8>>, fun gleam@dynamic:int/1)
))(_pipe).
-spec new_send_dice_parameters(integer()) -> send_dice_parameters().
new_send_dice_parameters(Chat_id) ->
{send_dice_parameters, Chat_id, none, none, none, none, none}.
-spec decode_webhook_info(gleam@dynamic:dynamic_()) -> {ok, webhook_info()} |
{error, list(gleam@dynamic:decode_error())}.
decode_webhook_info(Json) ->
_pipe = Json,
(gleam@dynamic:decode9(
fun(Field@0, Field@1, Field@2, Field@3, Field@4, Field@5, Field@6, Field@7, Field@8) -> {webhook_info, Field@0, Field@1, Field@2, Field@3, Field@4, Field@5, Field@6, Field@7, Field@8} end,
gleam@dynamic:field(<<"url"/utf8>>, fun gleam@dynamic:string/1),
gleam@dynamic:field(
<<"has_custom_certificate"/utf8>>,
fun gleam@dynamic:bool/1
),
gleam@dynamic:field(
<<"pending_update_count"/utf8>>,
fun gleam@dynamic:int/1
),
gleam@dynamic:optional_field(
<<"ip_address"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"last_error_date"/utf8>>,
fun gleam@dynamic:int/1
),
gleam@dynamic:optional_field(
<<"last_error_message"/utf8>>,
fun gleam@dynamic:string/1
),
gleam@dynamic:optional_field(
<<"last_synchronization_error_date"/utf8>>,
fun gleam@dynamic:int/1
),
gleam@dynamic:optional_field(
<<"max_connections"/utf8>>,
fun gleam@dynamic:int/1
),
gleam@dynamic:optional_field(
<<"allowed_updates"/utf8>>,
gleam@dynamic:list(fun gleam@dynamic:string/1)
)
))(_pipe).
-spec string_or_int_to_json(int_or_string()) -> gleam@json:json().
string_or_int_to_json(Value) ->
case Value of
{int, Value@1} ->
gleam@json:int(Value@1);
{string, Value@2} ->
gleam@json:string(Value@2)
end.
-spec bot_command_scope_to_json(bot_command_scope()) -> gleam@json:json().
bot_command_scope_to_json(Scope) ->
case Scope of
bot_command_default_scope ->
gleam@json:object(
[{<<"type"/utf8>>, gleam@json:string(<<"default"/utf8>>)}]
);
bot_command_all_private_chats_scope ->
gleam@json:object(
[{<<"type"/utf8>>,
gleam@json:string(<<"all_private_chats"/utf8>>)}]
);
bot_command_scope_all_group_chats ->
gleam@json:object(
[{<<"type"/utf8>>,
gleam@json:string(<<"all_group_chats"/utf8>>)}]
);
bot_command_scope_all_chat_administrators ->
gleam@json:object(
[{<<"type"/utf8>>,
gleam@json:string(<<"all_chat_administrators"/utf8>>)}]
);
{bot_command_scope_chat, Chat_id} ->
gleam@json:object(
[{<<"type"/utf8>>, gleam@json:string(<<"chat"/utf8>>)},
{<<"chat_id"/utf8>>, gleam@json:int(Chat_id)}]
);
{bot_command_scope_chat_string, Chat_id@1} ->
gleam@json:object(
[{<<"type"/utf8>>, gleam@json:string(<<"chat"/utf8>>)},
{<<"chat_id"/utf8>>, string_or_int_to_json(Chat_id@1)}]
);
{bot_command_scope_chat_administrators, Chat_id@2} ->
gleam@json:object(
[{<<"type"/utf8>>,
gleam@json:string(<<"chat_administrators"/utf8>>)},
{<<"chat_id"/utf8>>, string_or_int_to_json(Chat_id@2)}]
);
{bot_command_scope_chat_member, Chat_id@3, User_id} ->
gleam@json:object(
[{<<"type"/utf8>>, gleam@json:string(<<"chat_member"/utf8>>)},
{<<"chat_id"/utf8>>, string_or_int_to_json(Chat_id@3)},
{<<"user_id"/utf8>>, gleam@json:int(User_id)}]
)
end.
-spec option_to_json_object_list(
gleam@option:option(OLG),
binary(),
fun((OLG) -> gleam@json:json())
) -> list({binary(), gleam@json:json()}).
option_to_json_object_list(Value, Field, Encoder) ->
_pipe = gleam@option:map(Value, fun(V) -> [{Field, Encoder(V)}] end),
gleam@option:unwrap(_pipe, []).
-spec encode_botcommand_parameters(bot_command_parameters()) -> list({binary(),
gleam@json:json()}).
encode_botcommand_parameters(Params) ->
Scope = option_to_json_object_list(
erlang:element(2, Params),
<<"scope"/utf8>>,
fun bot_command_scope_to_json/1
),
Language_code = option_to_json_object_list(
erlang:element(3, Params),
<<"language_code"/utf8>>,
fun gleam@json:string/1
),
gleam@list:concat([Scope, Language_code]).
-spec encode_user(user()) -> gleam@json:json().
encode_user(User) ->
Id = [{<<"id"/utf8>>, gleam@json:int(erlang:element(2, User))}],
Is_bot = [{<<"is_bot"/utf8>>, gleam@json:bool(erlang:element(3, User))}],
First_name = [{<<"first_name"/utf8>>,
gleam@json:string(erlang:element(4, User))}],
Last_name = option_to_json_object_list(
erlang:element(5, User),
<<"last_name"/utf8>>,
fun gleam@json:string/1
),
Username = option_to_json_object_list(
erlang:element(6, User),
<<"username"/utf8>>,
fun gleam@json:string/1
),
Language_code = option_to_json_object_list(
erlang:element(7, User),
<<"language_code"/utf8>>,
fun gleam@json:string/1
),
Is_premium = option_to_json_object_list(
erlang:element(8, User),
<<"is_premium"/utf8>>,
fun gleam@json:bool/1
),
Added_to_attachment_menu = option_to_json_object_list(
erlang:element(9, User),
<<"added_to_attachment_menu"/utf8>>,
fun gleam@json:bool/1
),
_pipe = [Id,
Is_bot,
First_name,
Last_name,
Username,
Language_code,
Is_premium,
Added_to_attachment_menu],
_pipe@1 = gleam@list:concat(_pipe),
gleam@json:object(_pipe@1).
-spec encode_message_entity(message_entity()) -> gleam@json:json().
encode_message_entity(Message_entity) ->
Entity_type = [{<<"entity_type"/utf8>>,
gleam@json:string(erlang:element(2, Message_entity))}],
Offset = [{<<"offset"/utf8>>,
gleam@json:int(erlang:element(3, Message_entity))}],
Length = [{<<"length"/utf8>>,
gleam@json:int(erlang:element(4, Message_entity))}],
Url = option_to_json_object_list(
erlang:element(5, Message_entity),
<<"url"/utf8>>,
fun gleam@json:string/1
),
User = option_to_json_object_list(
erlang:element(6, Message_entity),
<<"user"/utf8>>,
fun encode_user/1
),
Language = option_to_json_object_list(
erlang:element(7, Message_entity),
<<"language"/utf8>>,
fun gleam@json:string/1
),
Custom_emoji_id = option_to_json_object_list(
erlang:element(8, Message_entity),
<<"custom_emoji_id"/utf8>>,
fun gleam@json:string/1
),
_pipe = [Entity_type, Offset, Length, Url, User, Language, Custom_emoji_id],
_pipe@1 = gleam@list:concat(_pipe),
gleam@json:object(_pipe@1).
-spec encode_reply_parameters(reply_parameters()) -> gleam@json:json().
encode_reply_parameters(Reply_parameters) ->
Message_id = [{<<"message_id"/utf8>>,
gleam@json:int(erlang:element(2, Reply_parameters))}],
Chat_id = option_to_json_object_list(
erlang:element(3, Reply_parameters),
<<"chat_id"/utf8>>,
fun string_or_int_to_json/1
),
Allow_sending_without_reply = option_to_json_object_list(
erlang:element(4, Reply_parameters),
<<"allow_sending_without_reply"/utf8>>,
fun gleam@json:bool/1
),
Quote = option_to_json_object_list(
erlang:element(5, Reply_parameters),
<<"quote"/utf8>>,
fun gleam@json:string/1
),
Quote_parse_mode = option_to_json_object_list(
erlang:element(6, Reply_parameters),
<<"quote_parse_mode"/utf8>>,
fun gleam@json:string/1
),
Quote_entities = option_to_json_object_list(
erlang:element(7, Reply_parameters),
<<"quote_entities"/utf8>>,
fun(_capture) ->
gleam@json:array(_capture, fun encode_message_entity/1)
end
),
Quote_position = option_to_json_object_list(
erlang:element(8, Reply_parameters),
<<"quote_position"/utf8>>,
fun gleam@json:int/1
),
_pipe = [Message_id,
Chat_id,
Allow_sending_without_reply,
Quote,
Quote_parse_mode,
Quote_entities,
Quote_position],
_pipe@1 = gleam@list:concat(_pipe),
gleam@json:object(_pipe@1).
-spec encode_send_dice_parameters(send_dice_parameters()) -> gleam@json:json().
encode_send_dice_parameters(Params) ->
Chat_id = [{<<"chat_id"/utf8>>, gleam@json:int(erlang:element(2, Params))}],
Message_thread_id = option_to_json_object_list(
erlang:element(3, Params),
<<"message_thread_id"/utf8>>,
fun gleam@json:int/1
),
Emoji = option_to_json_object_list(
erlang:element(4, Params),
<<"emoji"/utf8>>,
fun gleam@json:string/1
),
Disable_notification = option_to_json_object_list(
erlang:element(5, Params),
<<"disable_notification"/utf8>>,
fun gleam@json:bool/1
),
Protect_content = option_to_json_object_list(
erlang:element(6, Params),
<<"protect_content"/utf8>>,
fun gleam@json:bool/1
),
Reply_parameters = option_to_json_object_list(
erlang:element(7, Params),
<<"reply_parameters"/utf8>>,
fun encode_reply_parameters/1
),
_pipe = [Chat_id,
Message_thread_id,
Emoji,
Disable_notification,
Protect_content,
Reply_parameters],
_pipe@1 = gleam@list:concat(_pipe),
gleam@json:object(_pipe@1).