From 8662e92987c437f59d09896a247ec2b5d82c4528 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Mon, 28 Jan 2019 10:31:51 -0700 Subject: Publish docs updates --- docs/disml/Disml/Activity/index.html | 2 -- docs/disml/Disml/Attachment/index.html | 2 -- docs/disml/Disml/Ban/index.html | 2 -- docs/disml/Disml/Ban_t/index.html | 2 -- docs/disml/Disml/Channel/index.html | 10 ------- docs/disml/Disml/Channel_t/index.html | 2 -- docs/disml/Disml/Client/index.html | 32 +++++++++++----------- docs/disml/Disml/Client_options/index.html | 2 -- docs/disml/Disml/Dispatch/index.html | 9 ------ docs/disml/Disml/Embed/index.html | 2 -- docs/disml/Disml/Emoji/index.html | 2 -- docs/disml/Disml/Endpoints/index.html | 2 -- docs/disml/Disml/Event/index.html | 2 -- docs/disml/Disml/Guild/index.html | 2 -- docs/disml/Disml/Guild_t/index.html | 2 -- docs/disml/Disml/Http/index.html | 2 +- docs/disml/Disml/Member/index.html | 2 -- docs/disml/Disml/Member_t/index.html | 2 -- docs/disml/Disml/Message/index.html | 2 -- docs/disml/Disml/Message_t/index.html | 2 -- docs/disml/Disml/Models/index.html | 2 ++ docs/disml/Disml/Opcode/index.html | 2 -- docs/disml/Disml/Presence/index.html | 2 -- docs/disml/Disml/Reaction/index.html | 2 -- docs/disml/Disml/Reaction_t/index.html | 2 -- docs/disml/Disml/Rl/RouteMap/Key/index.html | 2 -- .../Provide_bin_io/argument-1-Key/index.html | 2 -- .../Disml/Rl/RouteMap/Provide_bin_io/index.html | 2 -- .../Provide_hash/argument-1-Key/index.html | 2 -- .../Disml/Rl/RouteMap/Provide_hash/index.html | 2 -- .../Provide_of_sexp/argument-1-Key/index.html | 2 -- .../Disml/Rl/RouteMap/Provide_of_sexp/index.html | 2 -- .../Tree/Provide_of_sexp/argument-1-K/index.html | 2 -- .../Rl/RouteMap/Tree/Provide_of_sexp/index.html | 2 -- docs/disml/Disml/Rl/RouteMap/Tree/index.html | 2 -- docs/disml/Disml/Rl/RouteMap/index.html | 2 -- docs/disml/Disml/Rl/index.html | 2 -- docs/disml/Disml/Role/index.html | 2 -- docs/disml/Disml/Role_t/index.html | 2 -- docs/disml/Disml/Sharder/Shard/index.html | 2 +- docs/disml/Disml/Sharder/index.html | 2 +- docs/disml/Disml/Snowflake/index.html | 2 -- docs/disml/Disml/User/index.html | 2 -- docs/disml/Disml/User_t/index.html | 2 -- docs/disml/Disml/index.html | 2 +- docs/disml/Disml__/.dune-keep | 0 docs/disml/Disml__/Activity/index.html | 2 ++ docs/disml/Disml__/Attachment/index.html | 2 ++ docs/disml/Disml__/Ban/index.html | 2 ++ docs/disml/Disml__/Ban_t/index.html | 2 ++ docs/disml/Disml__/Channel/index.html | 10 +++++++ docs/disml/Disml__/Channel_id/index.html | 10 +++++++ docs/disml/Disml__/Channel_id_t/index.html | 2 ++ docs/disml/Disml__/Channel_t/index.html | 2 ++ docs/disml/Disml__/Client/index.html | 17 ++++++++++++ docs/disml/Disml__/Client_options/index.html | 2 ++ docs/disml/Disml__/Dispatch/index.html | 9 ++++++ docs/disml/Disml__/Embed/index.html | 2 ++ docs/disml/Disml__/Emoji/index.html | 2 ++ docs/disml/Disml__/Endpoints/index.html | 2 ++ docs/disml/Disml__/Event/index.html | 2 ++ .../Disml__/Event_models/ChannelCreate/index.html | 2 ++ .../Disml__/Event_models/ChannelDelete/index.html | 2 ++ .../Event_models/ChannelPinsUpdate/index.html | 2 ++ .../Event_models/ChannelRecipientAdd/index.html | 2 ++ .../Event_models/ChannelRecipientRemove/index.html | 2 ++ .../Disml__/Event_models/ChannelUpdate/index.html | 2 ++ .../Disml__/Event_models/GuildBanAdd/index.html | 2 ++ .../Disml__/Event_models/GuildBanRemove/index.html | 2 ++ .../Disml__/Event_models/GuildCreate/index.html | 2 ++ .../Disml__/Event_models/GuildDelete/index.html | 2 ++ .../Event_models/GuildEmojisUpdate/index.html | 2 ++ .../Disml__/Event_models/GuildMemberAdd/index.html | 2 ++ .../Event_models/GuildMemberRemove/index.html | 2 ++ .../Event_models/GuildMemberUpdate/index.html | 2 ++ .../Event_models/GuildMembersChunk/index.html | 2 ++ .../Event_models/GuildRoleCreate/index.html | 2 ++ .../Event_models/GuildRoleDelete/index.html | 2 ++ .../Event_models/GuildRoleUpdate/index.html | 2 ++ .../Event_models/GuildUnavailable/index.html | 2 ++ .../Disml__/Event_models/GuildUpdate/index.html | 2 ++ .../Disml__/Event_models/MessageCreate/index.html | 2 ++ .../Disml__/Event_models/MessageDelete/index.html | 2 ++ .../Event_models/MessageDeleteBulk/index.html | 2 ++ .../Disml__/Event_models/MessageUpdate/index.html | 2 ++ .../Disml__/Event_models/PresenceUpdate/index.html | 2 ++ .../Disml__/Event_models/ReactionAdd/index.html | 2 ++ .../Disml__/Event_models/ReactionRemove/index.html | 2 ++ .../Event_models/ReactionRemoveAll/index.html | 2 ++ docs/disml/Disml__/Event_models/Ready/index.html | 2 ++ docs/disml/Disml__/Event_models/Resumed/index.html | 2 ++ .../Disml__/Event_models/TypingStart/index.html | 2 ++ docs/disml/Disml__/Event_models/Unknown/index.html | 2 ++ .../Disml__/Event_models/UserUpdate/index.html | 2 ++ .../Disml__/Event_models/WebhookUpdate/index.html | 2 ++ docs/disml/Disml__/Event_models/index.html | 2 ++ docs/disml/Disml__/Guild/index.html | 2 ++ docs/disml/Disml__/Guild_id/index.html | 2 ++ docs/disml/Disml__/Guild_id_t/index.html | 2 ++ docs/disml/Disml__/Guild_t/index.html | 2 ++ docs/disml/Disml__/Http/Base/index.html | 2 ++ docs/disml/Disml__/Http/index.html | 2 ++ .../Disml__/Impl/Channel/argument-1-T/index.html | 2 ++ docs/disml/Disml__/Impl/Channel/index.html | 10 +++++++ .../Disml__/Impl/Guild/argument-1-T/index.html | 2 ++ docs/disml/Disml__/Impl/Guild/index.html | 2 ++ .../Disml__/Impl/User/argument-1-T/index.html | 2 ++ docs/disml/Disml__/Impl/User/index.html | 2 ++ docs/disml/Disml__/Impl/index.html | 2 ++ docs/disml/Disml__/Member/index.html | 2 ++ docs/disml/Disml__/Member_t/index.html | 2 ++ docs/disml/Disml__/Message/index.html | 2 ++ docs/disml/Disml__/Message_id/index.html | 2 ++ docs/disml/Disml__/Message_t/index.html | 2 ++ docs/disml/Disml__/Opcode/index.html | 2 ++ docs/disml/Disml__/Presence/index.html | 2 ++ docs/disml/Disml__/Reaction/index.html | 2 ++ docs/disml/Disml__/Reaction_t/index.html | 2 ++ docs/disml/Disml__/Rl/RouteMap/Key/index.html | 2 ++ .../Provide_bin_io/argument-1-Key/index.html | 2 ++ .../Disml__/Rl/RouteMap/Provide_bin_io/index.html | 2 ++ .../Provide_hash/argument-1-Key/index.html | 2 ++ .../Disml__/Rl/RouteMap/Provide_hash/index.html | 2 ++ .../Provide_of_sexp/argument-1-Key/index.html | 2 ++ .../Disml__/Rl/RouteMap/Provide_of_sexp/index.html | 2 ++ .../Tree/Provide_of_sexp/argument-1-K/index.html | 2 ++ .../Rl/RouteMap/Tree/Provide_of_sexp/index.html | 2 ++ docs/disml/Disml__/Rl/RouteMap/Tree/index.html | 2 ++ docs/disml/Disml__/Rl/RouteMap/index.html | 2 ++ docs/disml/Disml__/Rl/index.html | 2 ++ docs/disml/Disml__/Role/index.html | 2 ++ docs/disml/Disml__/Role_id/index.html | 2 ++ docs/disml/Disml__/Role_t/index.html | 2 ++ docs/disml/Disml__/S/index.html | 2 ++ .../Disml__/S/module-type-ChannelImpl/index.html | 10 +++++++ .../Disml__/S/module-type-GuildImpl/index.html | 2 ++ .../Disml__/S/module-type-HasSnowflake/index.html | 2 ++ .../Disml__/S/module-type-UserImpl/index.html | 2 ++ docs/disml/Disml__/Sharder/Shard/index.html | 2 ++ docs/disml/Disml__/Sharder/index.html | 2 ++ docs/disml/Disml__/Snowflake/index.html | 2 ++ docs/disml/Disml__/User/index.html | 2 ++ docs/disml/Disml__/User_id/index.html | 2 ++ docs/disml/Disml__/User_id_t/index.html | 2 ++ docs/disml/Disml__/User_t/index.html | 2 ++ docs/disml/Disml__/index.html | 2 ++ docs/disml/Disml__Activity/index.html | 2 +- docs/disml/Disml__Attachment/index.html | 2 +- docs/disml/Disml__Ban/index.html | 2 +- docs/disml/Disml__Ban_t/index.html | 2 +- docs/disml/Disml__Channel/index.html | 18 ++++++------ docs/disml/Disml__Channel_id/.dune-keep | 0 docs/disml/Disml__Channel_id/index.html | 10 +++++++ docs/disml/Disml__Channel_id_t/.dune-keep | 0 docs/disml/Disml__Channel_id_t/index.html | 2 ++ docs/disml/Disml__Channel_t/index.html | 2 +- docs/disml/Disml__Client/index.html | 32 +++++++++++----------- docs/disml/Disml__Dispatch/index.html | 16 +++++------ docs/disml/Disml__Embed/index.html | 2 +- docs/disml/Disml__Emoji/index.html | 2 +- docs/disml/Disml__Event/index.html | 2 +- docs/disml/Disml__Event_models/.dune-keep | 0 .../Disml__Event_models/ChannelCreate/index.html | 2 ++ .../Disml__Event_models/ChannelDelete/index.html | 2 ++ .../ChannelPinsUpdate/index.html | 2 ++ .../ChannelRecipientAdd/index.html | 2 ++ .../ChannelRecipientRemove/index.html | 2 ++ .../Disml__Event_models/ChannelUpdate/index.html | 2 ++ .../Disml__Event_models/GuildBanAdd/index.html | 2 ++ .../Disml__Event_models/GuildBanRemove/index.html | 2 ++ .../Disml__Event_models/GuildCreate/index.html | 2 ++ .../Disml__Event_models/GuildDelete/index.html | 2 ++ .../GuildEmojisUpdate/index.html | 2 ++ .../Disml__Event_models/GuildMemberAdd/index.html | 2 ++ .../GuildMemberRemove/index.html | 2 ++ .../GuildMemberUpdate/index.html | 2 ++ .../GuildMembersChunk/index.html | 2 ++ .../Disml__Event_models/GuildRoleCreate/index.html | 2 ++ .../Disml__Event_models/GuildRoleDelete/index.html | 2 ++ .../Disml__Event_models/GuildRoleUpdate/index.html | 2 ++ .../GuildUnavailable/index.html | 2 ++ .../Disml__Event_models/GuildUpdate/index.html | 2 ++ .../Disml__Event_models/MessageCreate/index.html | 2 ++ .../Disml__Event_models/MessageDelete/index.html | 2 ++ .../MessageDeleteBulk/index.html | 2 ++ .../Disml__Event_models/MessageUpdate/index.html | 2 ++ .../Disml__Event_models/PresenceUpdate/index.html | 2 ++ .../Disml__Event_models/ReactionAdd/index.html | 2 ++ .../Disml__Event_models/ReactionRemove/index.html | 2 ++ .../ReactionRemoveAll/index.html | 2 ++ docs/disml/Disml__Event_models/Ready/index.html | 2 ++ docs/disml/Disml__Event_models/Resumed/index.html | 2 ++ .../Disml__Event_models/TypingStart/index.html | 2 ++ docs/disml/Disml__Event_models/Unknown/index.html | 2 ++ .../Disml__Event_models/UserUpdate/index.html | 2 ++ .../Disml__Event_models/WebhookUpdate/index.html | 2 ++ docs/disml/Disml__Event_models/index.html | 2 ++ docs/disml/Disml__Guild/index.html | 2 +- docs/disml/Disml__Guild_id/.dune-keep | 0 docs/disml/Disml__Guild_id/index.html | 2 ++ docs/disml/Disml__Guild_id_t/.dune-keep | 0 docs/disml/Disml__Guild_id_t/index.html | 2 ++ docs/disml/Disml__Guild_t/index.html | 2 +- docs/disml/Disml__Http/index.html | 2 +- docs/disml/Disml__Impl/.dune-keep | 0 .../Disml__Impl/Channel/argument-1-T/index.html | 2 ++ docs/disml/Disml__Impl/Channel/index.html | 10 +++++++ .../Disml__Impl/Guild/argument-1-T/index.html | 2 ++ docs/disml/Disml__Impl/Guild/index.html | 2 ++ .../disml/Disml__Impl/User/argument-1-T/index.html | 2 ++ docs/disml/Disml__Impl/User/index.html | 2 ++ docs/disml/Disml__Impl/index.html | 2 ++ docs/disml/Disml__Member/index.html | 2 +- docs/disml/Disml__Member_t/index.html | 2 +- docs/disml/Disml__Message/index.html | 2 +- docs/disml/Disml__Message_id/.dune-keep | 0 docs/disml/Disml__Message_id/index.html | 2 ++ docs/disml/Disml__Message_t/index.html | 2 +- docs/disml/Disml__Presence/index.html | 2 +- docs/disml/Disml__Reaction/index.html | 2 +- docs/disml/Disml__Reaction_t/index.html | 2 +- docs/disml/Disml__Role/index.html | 2 +- docs/disml/Disml__Role_id/.dune-keep | 0 docs/disml/Disml__Role_id/index.html | 2 ++ docs/disml/Disml__Role_t/index.html | 2 +- docs/disml/Disml__S/.dune-keep | 0 docs/disml/Disml__S/index.html | 2 ++ .../Disml__S/module-type-ChannelImpl/index.html | 10 +++++++ .../Disml__S/module-type-GuildImpl/index.html | 2 ++ .../Disml__S/module-type-HasSnowflake/index.html | 2 ++ .../disml/Disml__S/module-type-UserImpl/index.html | 2 ++ docs/disml/Disml__Sharder/Shard/index.html | 2 +- docs/disml/Disml__Sharder/index.html | 2 +- docs/disml/Disml__Snowflake/index.html | 2 +- docs/disml/Disml__User/index.html | 2 +- docs/disml/Disml__User_id/.dune-keep | 0 docs/disml/Disml__User_id/index.html | 2 ++ docs/disml/Disml__User_id_t/.dune-keep | 0 docs/disml/Disml__User_id_t/index.html | 2 ++ docs/disml/Disml__User_t/index.html | 2 +- 240 files changed, 468 insertions(+), 171 deletions(-) delete mode 100644 docs/disml/Disml/Activity/index.html delete mode 100644 docs/disml/Disml/Attachment/index.html delete mode 100644 docs/disml/Disml/Ban/index.html delete mode 100644 docs/disml/Disml/Ban_t/index.html delete mode 100644 docs/disml/Disml/Channel/index.html delete mode 100644 docs/disml/Disml/Channel_t/index.html delete mode 100644 docs/disml/Disml/Client_options/index.html delete mode 100644 docs/disml/Disml/Dispatch/index.html delete mode 100644 docs/disml/Disml/Embed/index.html delete mode 100644 docs/disml/Disml/Emoji/index.html delete mode 100644 docs/disml/Disml/Endpoints/index.html delete mode 100644 docs/disml/Disml/Event/index.html delete mode 100644 docs/disml/Disml/Guild/index.html delete mode 100644 docs/disml/Disml/Guild_t/index.html delete mode 100644 docs/disml/Disml/Member/index.html delete mode 100644 docs/disml/Disml/Member_t/index.html delete mode 100644 docs/disml/Disml/Message/index.html delete mode 100644 docs/disml/Disml/Message_t/index.html create mode 100644 docs/disml/Disml/Models/index.html delete mode 100644 docs/disml/Disml/Opcode/index.html delete mode 100644 docs/disml/Disml/Presence/index.html delete mode 100644 docs/disml/Disml/Reaction/index.html delete mode 100644 docs/disml/Disml/Reaction_t/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Key/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/Tree/index.html delete mode 100644 docs/disml/Disml/Rl/RouteMap/index.html delete mode 100644 docs/disml/Disml/Rl/index.html delete mode 100644 docs/disml/Disml/Role/index.html delete mode 100644 docs/disml/Disml/Role_t/index.html delete mode 100644 docs/disml/Disml/Snowflake/index.html delete mode 100644 docs/disml/Disml/User/index.html delete mode 100644 docs/disml/Disml/User_t/index.html create mode 100644 docs/disml/Disml__/.dune-keep create mode 100644 docs/disml/Disml__/Activity/index.html create mode 100644 docs/disml/Disml__/Attachment/index.html create mode 100644 docs/disml/Disml__/Ban/index.html create mode 100644 docs/disml/Disml__/Ban_t/index.html create mode 100644 docs/disml/Disml__/Channel/index.html create mode 100644 docs/disml/Disml__/Channel_id/index.html create mode 100644 docs/disml/Disml__/Channel_id_t/index.html create mode 100644 docs/disml/Disml__/Channel_t/index.html create mode 100644 docs/disml/Disml__/Client/index.html create mode 100644 docs/disml/Disml__/Client_options/index.html create mode 100644 docs/disml/Disml__/Dispatch/index.html create mode 100644 docs/disml/Disml__/Embed/index.html create mode 100644 docs/disml/Disml__/Emoji/index.html create mode 100644 docs/disml/Disml__/Endpoints/index.html create mode 100644 docs/disml/Disml__/Event/index.html create mode 100644 docs/disml/Disml__/Event_models/ChannelCreate/index.html create mode 100644 docs/disml/Disml__/Event_models/ChannelDelete/index.html create mode 100644 docs/disml/Disml__/Event_models/ChannelPinsUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/ChannelRecipientAdd/index.html create mode 100644 docs/disml/Disml__/Event_models/ChannelRecipientRemove/index.html create mode 100644 docs/disml/Disml__/Event_models/ChannelUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildBanAdd/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildBanRemove/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildCreate/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildDelete/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildEmojisUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildMemberAdd/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildMemberRemove/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildMemberUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildMembersChunk/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildRoleCreate/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildRoleDelete/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildRoleUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildUnavailable/index.html create mode 100644 docs/disml/Disml__/Event_models/GuildUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/MessageCreate/index.html create mode 100644 docs/disml/Disml__/Event_models/MessageDelete/index.html create mode 100644 docs/disml/Disml__/Event_models/MessageDeleteBulk/index.html create mode 100644 docs/disml/Disml__/Event_models/MessageUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/PresenceUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/ReactionAdd/index.html create mode 100644 docs/disml/Disml__/Event_models/ReactionRemove/index.html create mode 100644 docs/disml/Disml__/Event_models/ReactionRemoveAll/index.html create mode 100644 docs/disml/Disml__/Event_models/Ready/index.html create mode 100644 docs/disml/Disml__/Event_models/Resumed/index.html create mode 100644 docs/disml/Disml__/Event_models/TypingStart/index.html create mode 100644 docs/disml/Disml__/Event_models/Unknown/index.html create mode 100644 docs/disml/Disml__/Event_models/UserUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/WebhookUpdate/index.html create mode 100644 docs/disml/Disml__/Event_models/index.html create mode 100644 docs/disml/Disml__/Guild/index.html create mode 100644 docs/disml/Disml__/Guild_id/index.html create mode 100644 docs/disml/Disml__/Guild_id_t/index.html create mode 100644 docs/disml/Disml__/Guild_t/index.html create mode 100644 docs/disml/Disml__/Http/Base/index.html create mode 100644 docs/disml/Disml__/Http/index.html create mode 100644 docs/disml/Disml__/Impl/Channel/argument-1-T/index.html create mode 100644 docs/disml/Disml__/Impl/Channel/index.html create mode 100644 docs/disml/Disml__/Impl/Guild/argument-1-T/index.html create mode 100644 docs/disml/Disml__/Impl/Guild/index.html create mode 100644 docs/disml/Disml__/Impl/User/argument-1-T/index.html create mode 100644 docs/disml/Disml__/Impl/User/index.html create mode 100644 docs/disml/Disml__/Impl/index.html create mode 100644 docs/disml/Disml__/Member/index.html create mode 100644 docs/disml/Disml__/Member_t/index.html create mode 100644 docs/disml/Disml__/Message/index.html create mode 100644 docs/disml/Disml__/Message_id/index.html create mode 100644 docs/disml/Disml__/Message_t/index.html create mode 100644 docs/disml/Disml__/Opcode/index.html create mode 100644 docs/disml/Disml__/Presence/index.html create mode 100644 docs/disml/Disml__/Reaction/index.html create mode 100644 docs/disml/Disml__/Reaction_t/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Key/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Provide_hash/argument-1-Key/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Provide_hash/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/Tree/index.html create mode 100644 docs/disml/Disml__/Rl/RouteMap/index.html create mode 100644 docs/disml/Disml__/Rl/index.html create mode 100644 docs/disml/Disml__/Role/index.html create mode 100644 docs/disml/Disml__/Role_id/index.html create mode 100644 docs/disml/Disml__/Role_t/index.html create mode 100644 docs/disml/Disml__/S/index.html create mode 100644 docs/disml/Disml__/S/module-type-ChannelImpl/index.html create mode 100644 docs/disml/Disml__/S/module-type-GuildImpl/index.html create mode 100644 docs/disml/Disml__/S/module-type-HasSnowflake/index.html create mode 100644 docs/disml/Disml__/S/module-type-UserImpl/index.html create mode 100644 docs/disml/Disml__/Sharder/Shard/index.html create mode 100644 docs/disml/Disml__/Sharder/index.html create mode 100644 docs/disml/Disml__/Snowflake/index.html create mode 100644 docs/disml/Disml__/User/index.html create mode 100644 docs/disml/Disml__/User_id/index.html create mode 100644 docs/disml/Disml__/User_id_t/index.html create mode 100644 docs/disml/Disml__/User_t/index.html create mode 100644 docs/disml/Disml__/index.html create mode 100644 docs/disml/Disml__Channel_id/.dune-keep create mode 100644 docs/disml/Disml__Channel_id/index.html create mode 100644 docs/disml/Disml__Channel_id_t/.dune-keep create mode 100644 docs/disml/Disml__Channel_id_t/index.html create mode 100644 docs/disml/Disml__Event_models/.dune-keep create mode 100644 docs/disml/Disml__Event_models/ChannelCreate/index.html create mode 100644 docs/disml/Disml__Event_models/ChannelDelete/index.html create mode 100644 docs/disml/Disml__Event_models/ChannelPinsUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/ChannelRecipientAdd/index.html create mode 100644 docs/disml/Disml__Event_models/ChannelRecipientRemove/index.html create mode 100644 docs/disml/Disml__Event_models/ChannelUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/GuildBanAdd/index.html create mode 100644 docs/disml/Disml__Event_models/GuildBanRemove/index.html create mode 100644 docs/disml/Disml__Event_models/GuildCreate/index.html create mode 100644 docs/disml/Disml__Event_models/GuildDelete/index.html create mode 100644 docs/disml/Disml__Event_models/GuildEmojisUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/GuildMemberAdd/index.html create mode 100644 docs/disml/Disml__Event_models/GuildMemberRemove/index.html create mode 100644 docs/disml/Disml__Event_models/GuildMemberUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/GuildMembersChunk/index.html create mode 100644 docs/disml/Disml__Event_models/GuildRoleCreate/index.html create mode 100644 docs/disml/Disml__Event_models/GuildRoleDelete/index.html create mode 100644 docs/disml/Disml__Event_models/GuildRoleUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/GuildUnavailable/index.html create mode 100644 docs/disml/Disml__Event_models/GuildUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/MessageCreate/index.html create mode 100644 docs/disml/Disml__Event_models/MessageDelete/index.html create mode 100644 docs/disml/Disml__Event_models/MessageDeleteBulk/index.html create mode 100644 docs/disml/Disml__Event_models/MessageUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/PresenceUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/ReactionAdd/index.html create mode 100644 docs/disml/Disml__Event_models/ReactionRemove/index.html create mode 100644 docs/disml/Disml__Event_models/ReactionRemoveAll/index.html create mode 100644 docs/disml/Disml__Event_models/Ready/index.html create mode 100644 docs/disml/Disml__Event_models/Resumed/index.html create mode 100644 docs/disml/Disml__Event_models/TypingStart/index.html create mode 100644 docs/disml/Disml__Event_models/Unknown/index.html create mode 100644 docs/disml/Disml__Event_models/UserUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/WebhookUpdate/index.html create mode 100644 docs/disml/Disml__Event_models/index.html create mode 100644 docs/disml/Disml__Guild_id/.dune-keep create mode 100644 docs/disml/Disml__Guild_id/index.html create mode 100644 docs/disml/Disml__Guild_id_t/.dune-keep create mode 100644 docs/disml/Disml__Guild_id_t/index.html create mode 100644 docs/disml/Disml__Impl/.dune-keep create mode 100644 docs/disml/Disml__Impl/Channel/argument-1-T/index.html create mode 100644 docs/disml/Disml__Impl/Channel/index.html create mode 100644 docs/disml/Disml__Impl/Guild/argument-1-T/index.html create mode 100644 docs/disml/Disml__Impl/Guild/index.html create mode 100644 docs/disml/Disml__Impl/User/argument-1-T/index.html create mode 100644 docs/disml/Disml__Impl/User/index.html create mode 100644 docs/disml/Disml__Impl/index.html create mode 100644 docs/disml/Disml__Message_id/.dune-keep create mode 100644 docs/disml/Disml__Message_id/index.html create mode 100644 docs/disml/Disml__Role_id/.dune-keep create mode 100644 docs/disml/Disml__Role_id/index.html create mode 100644 docs/disml/Disml__S/.dune-keep create mode 100644 docs/disml/Disml__S/index.html create mode 100644 docs/disml/Disml__S/module-type-ChannelImpl/index.html create mode 100644 docs/disml/Disml__S/module-type-GuildImpl/index.html create mode 100644 docs/disml/Disml__S/module-type-HasSnowflake/index.html create mode 100644 docs/disml/Disml__S/module-type-UserImpl/index.html create mode 100644 docs/disml/Disml__User_id/.dune-keep create mode 100644 docs/disml/Disml__User_id/index.html create mode 100644 docs/disml/Disml__User_id_t/.dune-keep create mode 100644 docs/disml/Disml__User_id_t/index.html (limited to 'docs') diff --git a/docs/disml/Disml/Activity/index.html b/docs/disml/Disml/Activity/index.html deleted file mode 100644 index 565f0d7..0000000 --- a/docs/disml/Disml/Activity/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Activity (disml.Disml.Activity)

Module Disml.Activity

type t = {
name : string;
kind : int;
url : string;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Attachment/index.html b/docs/disml/Disml/Attachment/index.html deleted file mode 100644 index 9c34c9f..0000000 --- a/docs/disml/Disml/Attachment/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Attachment (disml.Disml.Attachment)

Module Disml.Attachment

type t = {
id : Snowflake.t;
filename : string;
size : int;
url : string;
proxy_url : string;
height : int;
width : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Ban/index.html b/docs/disml/Disml/Ban/index.html deleted file mode 100644 index 4894f28..0000000 --- a/docs/disml/Disml/Ban/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Ban (disml.Disml.Ban)

Module Disml.Ban

include module type of Ban_t
type t = {
reason : string;
user : User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Ban_t/index.html b/docs/disml/Disml/Ban_t/index.html deleted file mode 100644 index b6b6c30..0000000 --- a/docs/disml/Disml/Ban_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Ban_t (disml.Disml.Ban_t)

Module Disml.Ban_t

type t = {
reason : string;
user : User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Channel/index.html b/docs/disml/Disml/Channel/index.html deleted file mode 100644 index 8cc6188..0000000 --- a/docs/disml/Disml/Channel/index.html +++ /dev/null @@ -1,10 +0,0 @@ - -Channel (disml.Disml.Channel)

Module Disml.Channel

include module type of Channel_t
exception Invalid_channel of Yojson.Safe.json
type group = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Snowflake.t;
recipients : User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Snowflake.t;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Snowflake.t;
guild_id : Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Snowflake.t;
kind : int;
guild_id : Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : User_t.t list option;
icon : string option;
owner_id : Snowflake.t option;
application_id : Snowflake.t option;
category_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Snowflake.t
exception Invalid_message
exception No_message_found
val say : content:string -> t -> Message_t.t Async.Deferred.Or_error.t

Simple version of send_message that only takes ~content

val send_message : ?⁠embed:Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Channel.Invalid_message if one of content or embed is not set.

Examples

open Core
-open Disml
-
-let check_command (msg : Message.t) =
-    if String.is_prefix ~prefix:"!hello" msg.content then
-        let embed = { Embed.default with title = Some "Hello World!" } in
-        Channel.send_message ~embed msg.channel >>> ignore
-
-Client.message_create := check_command
val delete : t -> unit Async.Deferred.Or_error.t
val get_message : id:Snowflake.t -> t -> Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Snowflake.t -> ?⁠limit:int -> t -> Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Channel_t/index.html b/docs/disml/Disml/Channel_t/index.html deleted file mode 100644 index edfdad8..0000000 --- a/docs/disml/Disml/Channel_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Channel_t (disml.Disml.Channel_t)

Module Disml.Channel_t

exception Invalid_channel of Yojson.Safe.json
type group = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Snowflake.t;
recipients : User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Snowflake.t;
last_message_id : Snowflake.t option;
last_pin_timestamp : string option;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Snowflake.t;
category_id : Snowflake.t option;
guild_id : Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Snowflake.t;
guild_id : Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Snowflake.t;
kind : int;
guild_id : Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : User_t.t list option;
icon : string option;
owner_id : Snowflake.t option;
application_id : Snowflake.t option;
category_id : Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml/Client/index.html b/docs/disml/Disml/Client/index.html index cc21a97..7a6bdf9 100644 --- a/docs/disml/Disml/Client/index.html +++ b/docs/disml/Disml/Client/index.html @@ -1,17 +1,17 @@ -Client (disml.Disml.Client)

Module Disml.Client

include module type of Client_options
val token : string Stdlib.ref

Token that is set when using Client.start

include module type of Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

open Core
-open Disml
-
-let check_command (msg : Message.t) =
-    if String.is_prefix ~prefix:"!ping" msg.content then
-        Message.reply msg "Pong!" >>> ignore
-
-Client.message_create := check_command
val hello : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when connecting to the gateway, most users will have no use for this.

val ready : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when Discord decides a session is invalid, much like Client.hello this is not very useful for most people.

val channel_create : (Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Guild_t.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a guild's integrations are updated.

val member_join : (Member_t.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Member_t.member_wrapper -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Member_t.member_update -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Member_t.t list -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Role_t.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Role_t.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Role_t.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Message_t.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Message_t.message_update -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Snowflake.t -> Snowflake.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_bulk_delete : (Snowflake.t list -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_bulk_remove : (Reaction_t.t list -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Presence.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

type t = {
sharder : Sharder.t;
}

Type of the Client, it isn't recommended to access the fields directly.

val start : ?⁠count:int -> string -> t Async.Deferred.t

Start the Client. This begins shard connections to Discord and event handlers should be registered prior to calling this.

Example

open Async
-open Disml
-
-let main () =
-    let token = "a valid bot token" in
-    Client.start ~count:5 token >>> print_endline "Client launched"
-
-let _ =
-    Scheduler.go_main ~main ()
parameter ?count

Optional amount of shards to launch. Defaults to autosharding

parameter string

The token used for authentication

returns

A deferred client object

val set_status : status:Yojson.Safe.json -> t -> Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status where client.sharder is passed.

val set_status_with : f:(Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status_with where client.sharder is passed.

val request_guild_members : guild:Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.request_guild_members where client.sharder is passed.

\ No newline at end of file +Client (disml.Disml.Client)

Module Disml.Client

include module type of Disml__.Client_options
val token : string Stdlib.ref

Token that is set when using Client.start

include module type of Disml__.Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

        open Core
+        open Disml
+
+        let check_command (msg : Message.t) =
+            if String.is_prefix ~prefix:"!ping" msg.content then
+                Message.reply msg "Pong!" >>> ignore
+        
+        Client.message_create := check_command
val ready : (Disml__.Event_models.Ready.t -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Disml__.Event_models.Resumed.t -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val channel_create : (Disml__.Event_models.ChannelCreate.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml__.Event_models.ChannelUpdate.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml__.Event_models.ChannelDelete.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Disml__.Event_models.ChannelPinsUpdate.t -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml__.Event_models.GuildCreate.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml__.Event_models.GuildUpdate.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml__.Event_models.GuildDelete.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml__.Event_models.GuildBanAdd.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml__.Event_models.GuildBanRemove.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Disml__.Event_models.GuildEmojisUpdate.t -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val member_join : (Disml__.Event_models.GuildMemberAdd.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml__.Event_models.GuildMemberRemove.t -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml__.Event_models.GuildMemberUpdate.t -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml__.Event_models.GuildMembersChunk.t -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml__.Event_models.GuildRoleCreate.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml__.Event_models.GuildRoleUpdate.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml__.Event_models.GuildRoleDelete.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml__.Event_models.MessageCreate.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml__.Event_models.MessageUpdate.t -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml__.Event_models.MessageDelete.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_delete_bulk : (Disml__.Event_models.MessageDeleteBulk.t -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml__.Event_models.ReactionAdd.t -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml__.Event_models.ReactionRemove.t -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_remove_all : (Disml__.Event_models.ReactionRemoveAll.t -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml__.Event_models.PresenceUpdate.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Disml__.Event_models.TypingStart.t -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Disml__.Event_models.UserUpdate.t -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

val webhook_update : (Disml__.Event_models.WebhookUpdate.t -> unit) Stdlib.ref

Dispatched when a webhook is updated.

val unknown : (Disml__.Event_models.Unknown.t -> unit) Stdlib.ref

Dispatched as a fallback for unknown events.

type t = {
sharder : Sharder.t;
}

Type of the Client, it isn't recommended to access the fields directly.

val start : ?⁠count:int -> string -> t Async.Deferred.t

Start the Client. This begins shard connections to Discord and event handlers should be registered prior to calling this.

Example

        open Async
+        open Disml
+
+        let main () =
+            let token = "a valid bot token" in
+            Client.start ~count:5 token >>> print_endline "Client launched"
+
+        let _ =
+            Scheduler.go_main ~main ()
parameter ?count

Optional amount of shards to launch. Defaults to autosharding

parameter string

The token used for authentication

returns

A deferred client object

val set_status : status:Yojson.Safe.json -> t -> Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status where client.sharder is passed.

val set_status_with : f:(Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status_with where client.sharder is passed.

val request_guild_members : guild:Disml__.Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.request_guild_members where client.sharder is passed.

\ No newline at end of file diff --git a/docs/disml/Disml/Client_options/index.html b/docs/disml/Disml/Client_options/index.html deleted file mode 100644 index 6361946..0000000 --- a/docs/disml/Disml/Client_options/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Client_options (disml.Disml.Client_options)

Module Disml.Client_options

val token : string Stdlib.ref

Token that is set when using Client.start

\ No newline at end of file diff --git a/docs/disml/Disml/Dispatch/index.html b/docs/disml/Disml/Dispatch/index.html deleted file mode 100644 index 43da27d..0000000 --- a/docs/disml/Disml/Dispatch/index.html +++ /dev/null @@ -1,9 +0,0 @@ - -Dispatch (disml.Disml.Dispatch)

Module Disml.Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

open Core
-open Disml
-
-let check_command (msg : Message.t) =
-    if String.is_prefix ~prefix:"!ping" msg.content then
-        Message.reply msg "Pong!" >>> ignore
-
-Client.message_create := check_command
val hello : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when connecting to the gateway, most users will have no use for this.

val ready : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when Discord decides a session is invalid, much like Client.hello this is not very useful for most people.

val channel_create : (Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Guild_t.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a guild's integrations are updated.

val member_join : (Member_t.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Member_t.member_wrapper -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Member_t.member_update -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Member_t.t list -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Role_t.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Role_t.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Role_t.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Message_t.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Message_t.message_update -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Snowflake.t -> Snowflake.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_bulk_delete : (Snowflake.t list -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_bulk_remove : (Reaction_t.t list -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Presence.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

\ No newline at end of file diff --git a/docs/disml/Disml/Embed/index.html b/docs/disml/Disml/Embed/index.html deleted file mode 100644 index a9e20a6..0000000 --- a/docs/disml/Disml/Embed/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Embed (disml.Disml.Embed)

Module Disml.Embed

type image = {
url : string option;
proxy_url : string option;
height : int option;
width : int option;
}
val image_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> image
val sexp_of_image : image -> Ppx_sexp_conv_lib.Sexp.t
val image_to_yojson : image -> Yojson.Safe.json
val image_of_yojson : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val image_of_yojson_exn : Yojson.Safe.json -> image
type video = {
url : string option;
height : int option;
width : int option;
}
val video_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> video
val sexp_of_video : video -> Ppx_sexp_conv_lib.Sexp.t
val video_to_yojson : video -> Yojson.Safe.json
val video_of_yojson : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val video_of_yojson_exn : Yojson.Safe.json -> video
type provider = {
name : string option;
url : string option;
}
val provider_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> provider
val sexp_of_provider : provider -> Ppx_sexp_conv_lib.Sexp.t
val provider_to_yojson : provider -> Yojson.Safe.json
val provider_of_yojson : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val provider_of_yojson_exn : Yojson.Safe.json -> provider
type author = {
name : string option;
url : string option;
icon_url : string option;
proxy_icon_url : string option;
}
val author_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> author
val sexp_of_author : author -> Ppx_sexp_conv_lib.Sexp.t
val author_to_yojson : author -> Yojson.Safe.json
val author_of_yojson : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val author_of_yojson_exn : Yojson.Safe.json -> author
type field = {
name : string;
value : string;
inline : bool;
}
val field_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> field
val sexp_of_field : field -> Ppx_sexp_conv_lib.Sexp.t
val field_to_yojson : field -> Yojson.Safe.json
val field_of_yojson : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val field_of_yojson_exn : Yojson.Safe.json -> field
type t = {
title : string option;
kind : string option;
description : string option;
url : string option;
timestamp : string option;
colour : int option;
footer : footer option;
image : image option;
thumbnail : image option;
video : video option;
provider : provider option;
author : author option;
fields : field list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val default : t
val default_image : image
val default_video : video
val default_provider : provider
val default_author : author
val title : string -> t -> t
val description : string -> t -> t
val url : string -> t -> t
val timestamp : string -> t -> t
val colour : int -> t -> t
val color : int -> t -> t
val image : string -> t -> t
val thumbnail : string -> t -> t
val author : (author -> author) -> t -> t
val field : (string * string * bool) -> t -> t
val fields : (string * string * bool) list -> t -> t
val footer_text : string -> footer -> footer
val author_name : string -> author -> author
val author_url : string -> author -> author
val author_icon : string -> author -> author
\ No newline at end of file diff --git a/docs/disml/Disml/Emoji/index.html b/docs/disml/Disml/Emoji/index.html deleted file mode 100644 index 69a0b10..0000000 --- a/docs/disml/Disml/Emoji/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Emoji (disml.Disml.Emoji)

Module Disml.Emoji

type partial_emoji = {
id : Snowflake.t option;
name : string;
}
val partial_emoji_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_emoji
val sexp_of_partial_emoji : partial_emoji -> Ppx_sexp_conv_lib.Sexp.t
val partial_emoji_to_yojson : partial_emoji -> Yojson.Safe.json
val partial_emoji_of_yojson : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val partial_emoji_of_yojson_exn : Yojson.Safe.json -> partial_emoji
type t = {
id : Snowflake.t option;
name : string;
roles : Snowflake.t list;
user : User_t.t option;
require_colons : bool option;
managed : bool option;
animated : bool option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Endpoints/index.html b/docs/disml/Disml/Endpoints/index.html deleted file mode 100644 index 180a95e..0000000 --- a/docs/disml/Disml/Endpoints/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Endpoints (disml.Disml.Endpoints)

Module Disml.Endpoints

val gateway : string
val gateway_bot : string
val channel : int -> string
val channel_messages : int -> string
val channel_message : int -> int -> string
val channel_reaction_me : int -> int -> string -> string
val channel_reaction : int -> int -> string -> int -> string
val channel_reactions_get : int -> int -> string -> string
val channel_reactions_delete : int -> int -> string
val channel_bulk_delete : int -> string
val channel_permission : int -> int -> string
val channel_permissions : int -> string
val channels : string
val channel_call_ring : int -> string
val channel_invites : int -> string
val channel_typing : int -> string
val channel_pins : int -> string
val channel_pin : int -> int -> string
val guilds : string
val guild : int -> string
val guild_channels : int -> string
val guild_members : int -> string
val guild_member : int -> int -> string
val guild_member_role : int -> int -> int -> string
val guild_bans : int -> string
val guild_ban : int -> int -> string
val guild_roles : int -> string
val guild_role : int -> int -> string
val guild_prune : int -> string
val guild_voice_regions : int -> string
val guild_invites : int -> string
val guild_integrations : int -> string
val guild_integration : int -> int -> string
val guild_integration_sync : int -> int -> string
val guild_embed : int -> string
val guild_emojis : int -> string
val guild_emoji : int -> int -> string
val webhooks_guild : int -> string
val webhooks_channel : int -> string
val webhook : int -> string
val webhook_token : int -> string -> string
val webhook_git : int -> string -> string
val webhook_slack : int -> string -> string
val user : int -> string
val me : string
val me_guilds : string
val me_guild : int -> string
val me_channels : string
val me_connections : string
val invite : string -> string
val regions : string
val application_information : string
val group_recipient : int -> int -> string
val guild_me_nick : int -> string
val guild_vanity_url : int -> string
val guild_audit_logs : int -> string
val cdn_embed_avatar : string -> string
val cdn_emoji : string -> string -> string
val cdn_icon : int -> string -> string -> string
val cdn_avatar : int -> string -> string -> string
val cdn_default_avatar : int -> string
\ No newline at end of file diff --git a/docs/disml/Disml/Event/index.html b/docs/disml/Disml/Event/index.html deleted file mode 100644 index 90a9b8f..0000000 --- a/docs/disml/Disml/Event/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Event (disml.Disml.Event)

Module Disml.Event

exception Invalid_event of string

Used internally when received an unknown event. Is caught and logged.

type t =
| HELLO of Yojson.Safe.json
| READY of Yojson.Safe.json
| RESUMED of Yojson.Safe.json
| INVALID_SESSION of Yojson.Safe.json
| CHANNEL_CREATE of Channel_t.t
| CHANNEL_UPDATE of Channel_t.t
| CHANNEL_DELETE of Channel_t.t
| CHANNEL_PINS_UPDATE of Yojson.Safe.json
| GUILD_CREATE of Guild_t.t
| GUILD_UPDATE of Guild_t.t
| GUILD_DELETE of Guild_t.t
| GUILD_BAN_ADD of Ban_t.t
| GUILD_BAN_REMOVE of Ban_t.t
| GUILD_EMOJIS_UPDATE of Yojson.Safe.json
| GUILD_INTEGRATIONS_UPDATE of Yojson.Safe.json
| GUILD_MEMBER_ADD of Member_t.t
| GUILD_MEMBER_REMOVE of Member_t.member_wrapper
| GUILD_MEMBER_UPDATE of Member_t.member_update
| GUILD_MEMBERS_CHUNK of Member_t.t list
| GUILD_ROLE_CREATE of Role_t.t
| GUILD_ROLE_UPDATE of Role_t.t
| GUILD_ROLE_DELETE of Role_t.t
| MESSAGE_CREATE of Message_t.t
| MESSAGE_UPDATE of Message_t.message_update
| MESSAGE_DELETE of Snowflake.t * Snowflake.t
| MESSAGE_BULK_DELETE of Snowflake.t list
| MESSAGE_REACTION_ADD of Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE of Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE_ALL of Reaction_t.t list
| PRESENCE_UPDATE of Presence.t
| TYPING_START of Yojson.Safe.json
| USER_UPDATE of Yojson.Safe.json
| VOICE_STATE_UPDATE of Yojson.Safe.json
| VOICE_SERVER_UPDATE of Yojson.Safe.json
| WEBHOOKS_UPDATE of Yojson.Safe.json

Event dispatch type wrapper. Used internally.

val event_of_yojson : contents:Yojson.Safe.json -> string -> t

Used to convert an event string and payload into a t wrapper type.

val dispatch : t -> unit

Sends the event to the registered handler.

val handle_event : ev:string -> Yojson.Safe.json -> unit

Wrapper to other functions. This is called from the shards.

\ No newline at end of file diff --git a/docs/disml/Disml/Guild/index.html b/docs/disml/Disml/Guild/index.html deleted file mode 100644 index ac6bd6e..0000000 --- a/docs/disml/Disml/Guild/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Guild (disml.Disml.Guild)

Module Disml.Guild

include module type of Guild_t
type pre = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.role list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.channel_wrapper option;
system_channel : Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.member list;
channels : Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.t list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.t option;
system_channel : Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.t list;
channels : Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
val ban_user : id:Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Snowflake.t -> t -> Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Ban_t.t list Async.Deferred.Or_error.t
val get_channel : id:Snowflake.t -> t -> Channel_t.t Async.Deferred.Or_error.t
val get_emoji : id:Snowflake.t -> t -> Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : id:Snowflake.t -> t -> Member_t.t Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_role : id:Snowflake.t -> t -> Role_t.t option
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Snowflake.t -> t -> t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> t Async.Deferred.Or_error.t
val set_name : name:string -> t -> t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> t Async.Deferred.Or_error.t
val unban_user : id:Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Guild_t/index.html b/docs/disml/Disml/Guild_t/index.html deleted file mode 100644 index 284f9fd..0000000 --- a/docs/disml/Disml/Guild_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Guild_t (disml.Disml.Guild_t)

Module Disml.Guild_t

type pre = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.role list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.channel_wrapper option;
system_channel : Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.member list;
channels : Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Snowflake.t;
region : string;
afk_channel_id : Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Role_t.t list;
emojis : Emoji.t list;
features : string list;
mfa_level : int;
application_id : Snowflake.t option;
widget_enabled : bool option;
widget_channel : Channel_t.t option;
system_channel : Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Member_t.t list;
channels : Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Http/index.html b/docs/disml/Disml/Http/index.html index ea08b3d..1c84cbc 100644 --- a/docs/disml/Disml/Http/index.html +++ b/docs/disml/Disml/Http/index.html @@ -1,2 +1,2 @@ -Http (disml.Disml.Http)

Module Disml.Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reactions : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val broadcast_typing : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_pinned_messages : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val pin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val unpin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emojis : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_channels : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_members : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_bans : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_ban : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_roles : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val sync_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guilds : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val leave_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file +Http (disml.Disml.Http)

Module Disml.Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete_channel : int -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val get_message : int -> int -> Disml__.Message_t.t Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Disml__.Message_t.t Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> unit Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> unit Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> unit Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Disml__.User_t.t list Async.Deferred.Or_error.t
val delete_reactions : int -> int -> unit Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Disml__.Message_t.t Async.Deferred.Or_error.t
val delete_message : int -> int -> unit Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> unit Async.Deferred.Or_error.t
val broadcast_typing : int -> unit Async.Deferred.Or_error.t
val get_pinned_messages : int -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val pin_message : int -> int -> unit Async.Deferred.Or_error.t
val unpin_message : int -> int -> unit Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> unit Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> unit Async.Deferred.Or_error.t
val get_emojis : int -> Disml__.Emoji.t list Async.Deferred.Or_error.t
val get_emoji : int -> int -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Disml__.Emoji.t Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Disml__.Emoji.t Async.Deferred.Or_error.t
val delete_emoji : int -> int -> unit Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val get_guild : int -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val delete_guild : int -> unit Async.Deferred.Or_error.t
val get_guild_channels : int -> Disml__.Channel_t.t list Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_member : int -> int -> Disml__.Member.t Async.Deferred.Or_error.t
val get_members : int -> Disml__.Member.t list Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Disml__.Member.t Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> unit Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> unit Async.Deferred.Or_error.t
val get_bans : int -> Disml__.Ban.t list Async.Deferred.Or_error.t
val get_ban : int -> int -> Disml__.Ban.t Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_roles : int -> Disml__.Role_t.t list Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Disml__.Role_t.t Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Disml__.Role_t.t list Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Disml__.Role_t.t Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> unit Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> int Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> int Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val delete_integration : int -> int -> unit Async.Deferred.Or_error.t
val sync_integration : int -> int -> unit Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Disml__.User_t.t Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Disml__.User_t.t Async.Deferred.Or_error.t
val get_guilds : unit -> Disml__.Guild_t.t list Async.Deferred.Or_error.t
val leave_guild : int -> unit Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Disml__.User_t.t Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> unit Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> unit Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_application_info : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Member/index.html b/docs/disml/Disml/Member/index.html deleted file mode 100644 index e9a2971..0000000 --- a/docs/disml/Disml/Member/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Member (disml.Disml.Member)

Module Disml.Member

include module type of Member_t
type partial_member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Snowflake.t;
user : User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Snowflake.t;
roles : Snowflake.t list;
user : User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> member -> t
val add_role : role:Role_t.t -> Member_t.t -> unit Async.Deferred.Or_error.t
val remove_role : role:Role_t.t -> Member_t.t -> unit Async.Deferred.Or_error.t
val ban : ?⁠reason:string -> ?⁠days:int -> Member_t.t -> unit Async.Deferred.Or_error.t
val kick : ?⁠reason:string -> Member_t.t -> unit Async.Deferred.Or_error.t
val mute : Member_t.t -> unit Async.Deferred.Or_error.t
val deafen : Member_t.t -> unit Async.Deferred.Or_error.t
val unmute : Member_t.t -> unit Async.Deferred.Or_error.t
val undeafen : Member_t.t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Member_t/index.html b/docs/disml/Disml/Member_t/index.html deleted file mode 100644 index bf99c09..0000000 --- a/docs/disml/Disml/Member_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Member_t (disml.Disml.Member_t)

Module Disml.Member_t

type partial_member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Snowflake.t;
user : User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Snowflake.t;
roles : Snowflake.t list;
user : User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : User_t.t;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> member -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Message/index.html b/docs/disml/Disml/Message/index.html deleted file mode 100644 index 48909a6..0000000 --- a/docs/disml/Disml/Message/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Message (disml.Disml.Message)

Module Disml.Message

include module type of Message_t
type message_update = {
id : Snowflake.t;
author : User_t.t option;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Snowflake.t list;
role_mentions : Snowflake.t list;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool option;
webhook_id : Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
type t = {
id : Snowflake.t;
author : User_t.t;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool;
webhook_id : Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val add_reaction : t -> Emoji.t -> unit Async.Deferred.Or_error.t
val remove_reaction : t -> Emoji.t -> User_t.t -> unit Async.Deferred.Or_error.t
val clear_reactions : t -> unit Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val pin : t -> unit Async.Deferred.Or_error.t
val unpin : t -> unit Async.Deferred.Or_error.t
val reply : t -> string -> t Async.Deferred.Or_error.t
val reply_with : ?⁠embed:Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Message_t.t Async.Deferred.Or_error.t
val set_content : t -> string -> t Async.Deferred.Or_error.t
val set_embed : t -> Embed.t -> t Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Message_t/index.html b/docs/disml/Disml/Message_t/index.html deleted file mode 100644 index 6481bb1..0000000 --- a/docs/disml/Disml/Message_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Message_t (disml.Disml.Message_t)

Module Disml.Message_t

type message_update = {
id : Snowflake.t;
author : User_t.t option;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Snowflake.t list;
role_mentions : Snowflake.t list;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool option;
webhook_id : Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
type t = {
id : Snowflake.t;
author : User_t.t;
channel_id : Snowflake.t;
member : Member_t.partial_member option;
guild_id : Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Attachment.t list;
embeds : Embed.t list;
reactions : Snowflake.t list;
nonce : Snowflake.t option;
pinned : bool;
webhook_id : Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Models/index.html b/docs/disml/Disml/Models/index.html new file mode 100644 index 0000000..64e93b8 --- /dev/null +++ b/docs/disml/Disml/Models/index.html @@ -0,0 +1,2 @@ + +Models (disml.Disml.Models)

Module Disml.Models

module Activity = Disml__.Activity
module Attachment = Disml__.Attachment
module Ban = Disml__.Ban
module Channel = Disml__.Channel
module Channel_id = Disml__.Channel_id
module Embed = Disml__.Embed
module Emoji = Disml__.Emoji
module Guild = Disml__.Guild
module Guild_id = Disml__.Guild_id
module Member = Disml__.Member
module Message = Disml__.Message
module Presence = Disml__.Presence
module Reaction = Disml__.Reaction
module Role = Disml__.Role
module Snowflake = Disml__.Snowflake
module User = Disml__.User
module Event = Disml__.Event_models
\ No newline at end of file diff --git a/docs/disml/Disml/Opcode/index.html b/docs/disml/Disml/Opcode/index.html deleted file mode 100644 index 6db3bb7..0000000 --- a/docs/disml/Disml/Opcode/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Opcode (disml.Disml.Opcode)

Module Disml.Opcode

type t =
| DISPATCH
| HEARTBEAT
| IDENTIFY
| STATUS_UPDATE
| VOICE_STATE_UPDATE
| RESUME
| RECONNECT
| REQUEST_GUILD_MEMBERS
| INVALID_SESSION
| HELLO
| HEARTBEAT_ACK

Type of known opcodes.

exception Invalid_Opcode of int

Raised when receiving an invalid opcode. This should never occur.

val to_int : t -> int

Converts an opcode to its integer form for outgoing frames.

val from_int : int -> t

Converts an integer to an opcode for incoming frames. Raise Invalid_Opcode Raised when an unkown opcode is received.

val to_string : t -> string

Converts and opcode to a human-readable string. Used for logging purposes.

\ No newline at end of file diff --git a/docs/disml/Disml/Presence/index.html b/docs/disml/Disml/Presence/index.html deleted file mode 100644 index 5a94610..0000000 --- a/docs/disml/Disml/Presence/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Presence (disml.Disml.Presence)

Module Disml.Presence

type t = {
user : User_t.partial_user;
roles : Snowflake.t list;
game : Activity.t option;
guild_id : Snowflake.t;
status : string;
activities : Activity.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Reaction/index.html b/docs/disml/Disml/Reaction/index.html deleted file mode 100644 index 23f5ba6..0000000 --- a/docs/disml/Disml/Reaction/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Reaction (disml.Disml.Reaction)

Module Disml.Reaction

include module type of Reaction_t
type reaction_event = {
user_id : Snowflake.t;
channel_id : Snowflake.t;
message_id : Snowflake.t;
guild_id : Snowflake.t option;
emoji : Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Reaction_t/index.html b/docs/disml/Disml/Reaction_t/index.html deleted file mode 100644 index 9dea0c8..0000000 --- a/docs/disml/Disml/Reaction_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Reaction_t (disml.Disml.Reaction_t)

Module Disml.Reaction_t

type reaction_event = {
user_id : Snowflake.t;
channel_id : Snowflake.t;
message_id : Snowflake.t;
guild_id : Snowflake.t option;
emoji : Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Key/index.html b/docs/disml/Disml/Rl/RouteMap/Key/index.html deleted file mode 100644 index 0d08653..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Key/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Key (disml.Disml.Rl.RouteMap.Key)

Module RouteMap.Key

type t = Core.String.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
type comparator_witness = Core_kernel__Map.Make(Core.String).Key.comparator_witness
val comparator : (t, comparator_witness) Core_kernel__.Comparator.comparator
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html deleted file mode 100644 index 3665a79..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -1-Key (disml.Disml.Rl.RouteMap.Provide_bin_io.1-Key)

Parameter Provide_bin_io.1-Key

val bin_t : Key.t Bin_prot.Type_class.t
val bin_read_t : Key.t Bin_prot.Read.reader
val __bin_read_t__ : (Core_kernel__.Import.int -> Key.t) Bin_prot.Read.reader
val bin_reader_t : Key.t Bin_prot.Type_class.reader
val bin_size_t : Key.t Bin_prot.Size.sizer
val bin_write_t : Key.t Bin_prot.Write.writer
val bin_writer_t : Key.t Bin_prot.Type_class.writer
val bin_shape_t : Bin_prot.Shape.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html deleted file mode 100644 index f977cbf..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Provide_bin_io/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Provide_bin_io (disml.Disml.Rl.RouteMap.Provide_bin_io)

Module RouteMap.Provide_bin_io

Parameters

Key : sig ... end

Signature

val bin_shape_t : Bin_prot.Shape.t -> Bin_prot.Shape.t
val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html deleted file mode 100644 index 5e10b44..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Provide_hash/argument-1-Key/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -1-Key (disml.Disml.Rl.RouteMap.Provide_hash.1-Key)

Parameter Provide_hash.1-Key

val hash_fold_t : Base__.Hash.state -> Key.t -> Base__.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html deleted file mode 100644 index 3ea6368..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Provide_hash/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Provide_hash (disml.Disml.Rl.RouteMap.Provide_hash)

Module RouteMap.Provide_hash

Parameters

Key : sig ... end

Signature

val hash_fold_t : (Ppx_hash_lib.Std.Hash.state -> 'a -> Ppx_hash_lib.Std.Hash.state) -> Ppx_hash_lib.Std.Hash.state -> 'a t -> Ppx_hash_lib.Std.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html deleted file mode 100644 index 5373248..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -1-Key (disml.Disml.Rl.RouteMap.Provide_of_sexp.1-Key)

Parameter Provide_of_sexp.1-Key

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html b/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html deleted file mode 100644 index 91285ef..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Provide_of_sexp/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Provide_of_sexp (disml.Disml.Rl.RouteMap.Provide_of_sexp)

Module RouteMap.Provide_of_sexp

Parameters

Key : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_ t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html b/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html deleted file mode 100644 index f8f708c..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -1-K (disml.Disml.Rl.RouteMap.Tree.Provide_of_sexp.1-K)

Parameter Provide_of_sexp.1-K

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html b/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html deleted file mode 100644 index d2fee99..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Tree/Provide_of_sexp/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Provide_of_sexp (disml.Disml.Rl.RouteMap.Tree.Provide_of_sexp)

Module Tree.Provide_of_sexp

Parameters

K : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_ t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/Tree/index.html b/docs/disml/Disml/Rl/RouteMap/Tree/index.html deleted file mode 100644 index 26b93a3..0000000 --- a/docs/disml/Disml/Rl/RouteMap/Tree/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Tree (disml.Disml.Rl.RouteMap.Tree)

Module RouteMap.Tree

type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (K : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/RouteMap/index.html b/docs/disml/Disml/Rl/RouteMap/index.html deleted file mode 100644 index 4320fdb..0000000 --- a/docs/disml/Disml/Rl/RouteMap/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -RouteMap (disml.Disml.Rl.RouteMap)

Module Rl.RouteMap

Type for mapping route -> rl.

module Key : sig ... end
module Tree : sig ... end
type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Map.t
val compare : ('a -> 'a -> Core_kernel__.Import.int) -> 'a t -> 'a t -> Core_kernel__.Import.int
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a Tree.t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (Key : sig ... end) -> sig ... end
module Provide_bin_io : functor (Key : sig ... end) -> sig ... end
module Provide_hash : functor (Key : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml/Rl/index.html b/docs/disml/Disml/Rl/index.html deleted file mode 100644 index a4527ce..0000000 --- a/docs/disml/Disml/Rl/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Rl (disml.Disml.Rl)

Module Disml.Rl

module RouteMap : module type of sig ... end

Type for mapping route -> rl.

type rl = {
limit : int;
remaining : int;
reset : int;
}

Type representing ratelimit information.

type t = (rl, Core.read_write) Async.Mvar.t RouteMap.t

Type representing the specific case of RouteMap.

val rl_of_header : Cohttp.Header.t -> rl option

Converts Cohttp header data into ratelimit information.

returns

Some of ratelimit information or None on bad headers

val default : rl

Default for type rl. Used for prepopulating routes.

val empty : t

Empty ratelimit route map.

val update : 'a RouteMap.t -> string -> f:('a option -> 'a) -> 'a RouteMap.t

Analogous to RouteMap.update.

val find : 'a RouteMap.t -> string -> 'a option

Analogous to RouteMap.find.

val find_exn : 'a RouteMap.t -> string -> 'a

Analogous to RouteMap.find_exn.

\ No newline at end of file diff --git a/docs/disml/Disml/Role/index.html b/docs/disml/Disml/Role/index.html deleted file mode 100644 index c1aa27a..0000000 --- a/docs/disml/Disml/Role/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Role (disml.Disml.Role)

Module Disml.Role

include module type of Role_t
type role = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
type t = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> role -> t
val allow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val disallow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val hoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_colour : colour:int -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_name : name:string -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val unhoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml/Role_t/index.html b/docs/disml/Disml/Role_t/index.html deleted file mode 100644 index 96ad007..0000000 --- a/docs/disml/Disml/Role_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Role_t (disml.Disml.Role_t)

Module Disml.Role_t

type role = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
type t = {
id : Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Snowflake.t -> role -> t
\ No newline at end of file diff --git a/docs/disml/Disml/Sharder/Shard/index.html b/docs/disml/Disml/Sharder/Shard/index.html index 5c68419..5cd3552 100644 --- a/docs/disml/Disml/Sharder/Shard/index.html +++ b/docs/disml/Disml/Sharder/Shard/index.html @@ -1,2 +1,2 @@ -Shard (disml.Disml.Sharder.Shard)

Module Sharder.Shard

Module representing a single shard.

type shard = {
hb_interval : Core.Time.Span.t Async.Ivar.t;

Time span between heartbeats, wrapped in an Ivar.

seq : int;

Current sequence number

session : string option;

Session id, if one exists.

pipe : Websocket_async.Frame.t Async.Pipe.Reader.t * Websocket_async.Frame.t Async.Pipe.Writer.t;

Raw frame IO pipe used for websocket communications.

ready : unit Async.Ivar.t;

A simple Ivar indicating if the shard has received READY.

url : string;

The websocket URL in use.

id : int * int;

A tuple as expected by Discord. First element is the current shard index, second element is the total shard count.

}

Representation of the state of a shard.

type 'a t = {
mutable state : 'a;
}

Wrapper around an internal state, used to wrap shard.

val heartbeat : shard -> shard Async.Deferred.t

Send a heartbeat to Discord. This is handled automatically.

val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t

Set the status of the shard.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Snowflake.t -> shard -> shard Async.Deferred.t

Request guild members for the shard's guild. Causes dispatch of multiple member chunk events.

val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t

Create a new shard

\ No newline at end of file +Shard (disml.Disml.Sharder.Shard)

Module Sharder.Shard

Module representing a single shard.

type shard = {
hb_interval : Core.Time.Span.t Async.Ivar.t;

Time span between heartbeats, wrapped in an Ivar.

seq : int;

Current sequence number

session : string option;

Session id, if one exists.

pipe : Websocket_async.Frame.t Async.Pipe.Reader.t * Websocket_async.Frame.t Async.Pipe.Writer.t;

Raw frame IO pipe used for websocket communications.

ready : unit Async.Ivar.t;

A simple Ivar indicating if the shard has received READY.

url : string;

The websocket URL in use.

id : int * int;

A tuple as expected by Discord. First element is the current shard index, second element is the total shard count.

_internal : Async.Reader.t * Async.Writer.t;
}

Representation of the state of a shard.

type 'a t = {
mutable state : 'a;
}

Wrapper around an internal state, used to wrap shard.

val heartbeat : shard -> shard Async.Deferred.t

Send a heartbeat to Discord. This is handled automatically.

val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t

Set the status of the shard.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml__.Snowflake.t -> shard -> shard Async.Deferred.t

Request guild members for the shard's guild. Causes dispatch of multiple member chunk events.

val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t

Create a new shard

val shutdown_clean : shard -> unit Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml/Sharder/index.html b/docs/disml/Disml/Sharder/index.html index c485dbd..c5d95cc 100644 --- a/docs/disml/Disml/Sharder/index.html +++ b/docs/disml/Disml/Sharder/index.html @@ -1,2 +1,2 @@ -Sharder (disml.Disml.Sharder)

Module Disml.Sharder

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t

Start the Sharder. This is called by Client.start.

module Shard : sig ... end

Module representing a single shard.

val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t

Calls Shard.set_status for each shard registered with the sharder.

val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t

Like set_status but takes a function with a shard as its parameter and json for its return.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Snowflake.t -> t -> Shard.shard list Async.Deferred.t

Calls Shard.request_guild_members for each shard registered with the sharder.

\ No newline at end of file +Sharder (disml.Disml.Sharder)

Module Disml.Sharder

Internal sharding manager. Most of this is accessed through Client.

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t

Start the Sharder. This is called by Client.start.

module Shard : sig ... end

Module representing a single shard.

val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t

Calls Shard.set_status for each shard registered with the sharder.

val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t

Like set_status but takes a function with a shard as its parameter and json for its return.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml__.Snowflake.t -> t -> Shard.shard list Async.Deferred.t

Calls Shard.request_guild_members for each shard registered with the sharder.

val shutdown_all : t -> unit list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml/Snowflake/index.html b/docs/disml/Disml/Snowflake/index.html deleted file mode 100644 index 1d65624..0000000 --- a/docs/disml/Disml/Snowflake/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -Snowflake (disml.Disml.Snowflake)

Module Disml.Snowflake

type t = Core.Int.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val of_yojson_exn : Yojson.Safe.json -> t
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val to_yojson : t -> Yojson.Safe.json
val timestamp : t -> int
val timestamp_iso : t -> string
\ No newline at end of file diff --git a/docs/disml/Disml/User/index.html b/docs/disml/Disml/User/index.html deleted file mode 100644 index 751caa6..0000000 --- a/docs/disml/Disml/User/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -User (disml.Disml.User)

Module Disml.User

include module type of User_t
type partial_user = {
id : Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val tag : t -> string
val mention : t -> string
val default_avatar : t -> string
val face : t -> string
\ No newline at end of file diff --git a/docs/disml/Disml/User_t/index.html b/docs/disml/Disml/User_t/index.html deleted file mode 100644 index e800d5b..0000000 --- a/docs/disml/Disml/User_t/index.html +++ /dev/null @@ -1,2 +0,0 @@ - -User_t (disml.Disml.User_t)

Module Disml.User_t

type partial_user = {
id : Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml/index.html b/docs/disml/Disml/index.html index 5266349..47d60dd 100644 --- a/docs/disml/Disml/index.html +++ b/docs/disml/Disml/index.html @@ -1,2 +1,2 @@ -Disml (disml.Disml)

Module Disml

module Activity : sig ... end
module Attachment : sig ... end
module Ban : sig ... end
module Ban_t : sig ... end
module Channel : sig ... end
module Channel_t : sig ... end
module Client : sig ... end
module Client_options : sig ... end
module Dispatch : sig ... end
module Embed : sig ... end
module Emoji : sig ... end
module Endpoints : sig ... end
module Event : sig ... end
module Guild : sig ... end
module Guild_t : sig ... end
module Http : sig ... end
module Member : sig ... end
module Member_t : sig ... end
module Message : sig ... end
module Message_t : sig ... end
module Opcode : sig ... end
module Presence : sig ... end
module Reaction : sig ... end
module Reaction_t : sig ... end
module Rl : sig ... end
module Role : sig ... end
module Role_t : sig ... end
module Sharder : sig ... end
module Snowflake : sig ... end
module User : sig ... end
module User_t : sig ... end
\ No newline at end of file +Disml (disml.Disml)

Module Disml

module Client : sig ... end
module Http : sig ... end
module Sharder : sig ... end

Internal sharding manager. Most of this is accessed through Client.

module Models : sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__/.dune-keep b/docs/disml/Disml__/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__/Activity/index.html b/docs/disml/Disml__/Activity/index.html new file mode 100644 index 0000000..00136f7 --- /dev/null +++ b/docs/disml/Disml__/Activity/index.html @@ -0,0 +1,2 @@ + +Activity (disml.Disml__.Activity)

Module Disml__.Activity

type t = {
name : string;

The name of the activity.

kind : int;

0 = Playing, 1 = Streaming, 2 = Listening, 3 = Watching

url : string option;

Stream URL. Only validated for kind = 1.

}

An activity object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Attachment/index.html b/docs/disml/Disml__/Attachment/index.html new file mode 100644 index 0000000..d36ce4f --- /dev/null +++ b/docs/disml/Disml__/Attachment/index.html @@ -0,0 +1,2 @@ + +Attachment (disml.Disml__.Attachment)

Module Disml__.Attachment

type t = {
id : Disml__.Snowflake.t;
filename : string;
size : int;
url : string;
proxy_url : string;
height : int;
width : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Ban/index.html b/docs/disml/Disml__/Ban/index.html new file mode 100644 index 0000000..30af61b --- /dev/null +++ b/docs/disml/Disml__/Ban/index.html @@ -0,0 +1,2 @@ + +Ban (disml.Disml__.Ban)

Module Disml__.Ban

include module type of Disml__.Ban_t
type t = {
reason : string option;

The reason for the ban.

user : Disml__.User_t.t;

The banned user.

}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Ban_t/index.html b/docs/disml/Disml__/Ban_t/index.html new file mode 100644 index 0000000..f9cf9da --- /dev/null +++ b/docs/disml/Disml__/Ban_t/index.html @@ -0,0 +1,2 @@ + +Ban_t (disml.Disml__.Ban_t)

Module Disml__.Ban_t

type t = {
reason : string option;

The reason for the ban.

user : Disml__.User_t.t;

The banned user.

}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Channel/index.html b/docs/disml/Disml__/Channel/index.html new file mode 100644 index 0000000..ea0fc7e --- /dev/null +++ b/docs/disml/Disml__/Channel/index.html @@ -0,0 +1,10 @@ + +Channel (disml.Disml__.Channel)

Module Disml__.Channel

include module type of Disml__.Channel_t
exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml__.User_id_t.t;
recipients : Disml__.User_t.t list;
}

Represents a Group channel object.

val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
}

Represents a private channel with a single user.

val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}

Represents a text channel in a guild.

val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml__.Channel_id_t.t;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}

Represents a voice channel in a guild.

val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Disml__.Channel_id_t.t;
guild_id : Disml__.Guild_id_t.t option;
position : int;
name : string;
}

Represents a guild category.

val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category

Wrapper variant for all channel types.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml__.Channel_id_t.t;
kind : int;
guild_id : Disml__.Guild_id_t.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml__.Message_id.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml__.User_t.t list option;
icon : string option;
owner_id : Disml__.User_id_t.t option;
application_id : Disml__.Snowflake.t option;
category_id : Disml__.Channel_id_t.t option;
last_pin_timestamp : string option;
}

Intermediate used internally.

val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.ChannelImpl with type t := Disml__.Channel_t.t
type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Channel_id/index.html b/docs/disml/Disml__/Channel_id/index.html new file mode 100644 index 0000000..7da7644 --- /dev/null +++ b/docs/disml/Disml__/Channel_id/index.html @@ -0,0 +1,10 @@ + +Channel_id (disml.Disml__.Channel_id)

Module Disml__.Channel_id

include module type of Disml__.Channel_id_t
type t = [
| `Channel_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.ChannelImpl with type t := Disml__.Channel_id_t.t
type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Channel_id_t/index.html b/docs/disml/Disml__/Channel_id_t/index.html new file mode 100644 index 0000000..883015f --- /dev/null +++ b/docs/disml/Disml__/Channel_id_t/index.html @@ -0,0 +1,2 @@ + +Channel_id_t (disml.Disml__.Channel_id_t)

Module Disml__.Channel_id_t

type t = [
| `Channel_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Channel_t/index.html b/docs/disml/Disml__/Channel_t/index.html new file mode 100644 index 0000000..57a68d9 --- /dev/null +++ b/docs/disml/Disml__/Channel_t/index.html @@ -0,0 +1,2 @@ + +Channel_t (disml.Disml__.Channel_t)

Module Disml__.Channel_t

exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml__.User_id_t.t;
recipients : Disml__.User_t.t list;
}

Represents a Group channel object.

val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
}

Represents a private channel with a single user.

val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}

Represents a text channel in a guild.

val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml__.Channel_id_t.t;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}

Represents a voice channel in a guild.

val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Disml__.Channel_id_t.t;
guild_id : Disml__.Guild_id_t.t option;
position : int;
name : string;
}

Represents a guild category.

val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category

Wrapper variant for all channel types.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml__.Channel_id_t.t;
kind : int;
guild_id : Disml__.Guild_id_t.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml__.Message_id.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml__.User_t.t list option;
icon : string option;
owner_id : Disml__.User_id_t.t option;
application_id : Disml__.Snowflake.t option;
category_id : Disml__.Channel_id_t.t option;
last_pin_timestamp : string option;
}

Intermediate used internally.

val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Client/index.html b/docs/disml/Disml__/Client/index.html new file mode 100644 index 0000000..709079d --- /dev/null +++ b/docs/disml/Disml__/Client/index.html @@ -0,0 +1,17 @@ + +Client (disml.Disml__.Client)

Module Disml__.Client

include module type of Disml__.Client_options
val token : string Stdlib.ref

Token that is set when using Client.start

include module type of Disml__.Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

        open Core
+        open Disml
+
+        let check_command (msg : Message.t) =
+            if String.is_prefix ~prefix:"!ping" msg.content then
+                Message.reply msg "Pong!" >>> ignore
+        
+        Client.message_create := check_command
val ready : (Disml__.Event_models.Ready.t -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Disml__.Event_models.Resumed.t -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val channel_create : (Disml__.Event_models.ChannelCreate.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml__.Event_models.ChannelUpdate.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml__.Event_models.ChannelDelete.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Disml__.Event_models.ChannelPinsUpdate.t -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml__.Event_models.GuildCreate.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml__.Event_models.GuildUpdate.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml__.Event_models.GuildDelete.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml__.Event_models.GuildBanAdd.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml__.Event_models.GuildBanRemove.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Disml__.Event_models.GuildEmojisUpdate.t -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val member_join : (Disml__.Event_models.GuildMemberAdd.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml__.Event_models.GuildMemberRemove.t -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml__.Event_models.GuildMemberUpdate.t -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml__.Event_models.GuildMembersChunk.t -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml__.Event_models.GuildRoleCreate.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml__.Event_models.GuildRoleUpdate.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml__.Event_models.GuildRoleDelete.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml__.Event_models.MessageCreate.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml__.Event_models.MessageUpdate.t -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml__.Event_models.MessageDelete.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_delete_bulk : (Disml__.Event_models.MessageDeleteBulk.t -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml__.Event_models.ReactionAdd.t -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml__.Event_models.ReactionRemove.t -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_remove_all : (Disml__.Event_models.ReactionRemoveAll.t -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml__.Event_models.PresenceUpdate.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Disml__.Event_models.TypingStart.t -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Disml__.Event_models.UserUpdate.t -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

val webhook_update : (Disml__.Event_models.WebhookUpdate.t -> unit) Stdlib.ref

Dispatched when a webhook is updated.

val unknown : (Disml__.Event_models.Unknown.t -> unit) Stdlib.ref

Dispatched as a fallback for unknown events.

type t = {
sharder : Disml.Sharder.t;
}

Type of the Client, it isn't recommended to access the fields directly.

val start : ?⁠count:int -> string -> t Async.Deferred.t

Start the Client. This begins shard connections to Discord and event handlers should be registered prior to calling this.

Example

        open Async
+        open Disml
+
+        let main () =
+            let token = "a valid bot token" in
+            Client.start ~count:5 token >>> print_endline "Client launched"
+
+        let _ =
+            Scheduler.go_main ~main ()
parameter ?count

Optional amount of shards to launch. Defaults to autosharding

parameter string

The token used for authentication

returns

A deferred client object

val set_status : status:Yojson.Safe.json -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status where client.sharder is passed.

val set_status_with : f:(Disml.Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status_with where client.sharder is passed.

val request_guild_members : guild:Disml__.Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.request_guild_members where client.sharder is passed.

\ No newline at end of file diff --git a/docs/disml/Disml__/Client_options/index.html b/docs/disml/Disml__/Client_options/index.html new file mode 100644 index 0000000..f1b1045 --- /dev/null +++ b/docs/disml/Disml__/Client_options/index.html @@ -0,0 +1,2 @@ + +Client_options (disml.Disml__.Client_options)

Module Disml__.Client_options

val token : string Stdlib.ref

Token that is set when using Client.start

\ No newline at end of file diff --git a/docs/disml/Disml__/Dispatch/index.html b/docs/disml/Disml__/Dispatch/index.html new file mode 100644 index 0000000..d4aa6fa --- /dev/null +++ b/docs/disml/Disml__/Dispatch/index.html @@ -0,0 +1,9 @@ + +Dispatch (disml.Disml__.Dispatch)

Module Disml__.Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

        open Core
+        open Disml
+
+        let check_command (msg : Message.t) =
+            if String.is_prefix ~prefix:"!ping" msg.content then
+                Message.reply msg "Pong!" >>> ignore
+        
+        Client.message_create := check_command
val ready : (Disml__.Event_models.Ready.t -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Disml__.Event_models.Resumed.t -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val channel_create : (Disml__.Event_models.ChannelCreate.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml__.Event_models.ChannelUpdate.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml__.Event_models.ChannelDelete.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Disml__.Event_models.ChannelPinsUpdate.t -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml__.Event_models.GuildCreate.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml__.Event_models.GuildUpdate.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml__.Event_models.GuildDelete.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml__.Event_models.GuildBanAdd.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml__.Event_models.GuildBanRemove.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Disml__.Event_models.GuildEmojisUpdate.t -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val member_join : (Disml__.Event_models.GuildMemberAdd.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml__.Event_models.GuildMemberRemove.t -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml__.Event_models.GuildMemberUpdate.t -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml__.Event_models.GuildMembersChunk.t -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml__.Event_models.GuildRoleCreate.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml__.Event_models.GuildRoleUpdate.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml__.Event_models.GuildRoleDelete.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml__.Event_models.MessageCreate.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml__.Event_models.MessageUpdate.t -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml__.Event_models.MessageDelete.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_delete_bulk : (Disml__.Event_models.MessageDeleteBulk.t -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml__.Event_models.ReactionAdd.t -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml__.Event_models.ReactionRemove.t -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_remove_all : (Disml__.Event_models.ReactionRemoveAll.t -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml__.Event_models.PresenceUpdate.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Disml__.Event_models.TypingStart.t -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Disml__.Event_models.UserUpdate.t -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

val webhook_update : (Disml__.Event_models.WebhookUpdate.t -> unit) Stdlib.ref

Dispatched when a webhook is updated.

val unknown : (Disml__.Event_models.Unknown.t -> unit) Stdlib.ref

Dispatched as a fallback for unknown events.

\ No newline at end of file diff --git a/docs/disml/Disml__/Embed/index.html b/docs/disml/Disml__/Embed/index.html new file mode 100644 index 0000000..40c0989 --- /dev/null +++ b/docs/disml/Disml__/Embed/index.html @@ -0,0 +1,2 @@ + +Embed (disml.Disml__.Embed)

Module Disml__.Embed

A footer object belonging to an embed.

type image = {
url : string option;
proxy_url : string option;
height : int option;
width : int option;
}

An image object belonging to an embed.

val image_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> image
val sexp_of_image : image -> Ppx_sexp_conv_lib.Sexp.t
val image_to_yojson : image -> Yojson.Safe.json
val image_of_yojson : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val image_of_yojson_exn : Yojson.Safe.json -> image
type video = {
url : string option;
height : int option;
width : int option;
}

A video object belonging to an embed.

val video_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> video
val sexp_of_video : video -> Ppx_sexp_conv_lib.Sexp.t
val video_to_yojson : video -> Yojson.Safe.json
val video_of_yojson : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val video_of_yojson_exn : Yojson.Safe.json -> video
type provider = {
name : string option;
url : string option;
}

A provider object belonging to an embed.

val provider_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> provider
val sexp_of_provider : provider -> Ppx_sexp_conv_lib.Sexp.t
val provider_to_yojson : provider -> Yojson.Safe.json
val provider_of_yojson : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val provider_of_yojson_exn : Yojson.Safe.json -> provider
type author = {
name : string option;
url : string option;
icon_url : string option;
proxy_icon_url : string option;
}

An author object belonging to an embed.

val author_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> author
val sexp_of_author : author -> Ppx_sexp_conv_lib.Sexp.t
val author_to_yojson : author -> Yojson.Safe.json
val author_of_yojson : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val author_of_yojson_exn : Yojson.Safe.json -> author
type field = {
name : string;
value : string;
inline : bool;
}

A field object belonging to an embed.

val field_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> field
val sexp_of_field : field -> Ppx_sexp_conv_lib.Sexp.t
val field_to_yojson : field -> Yojson.Safe.json
val field_of_yojson : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val field_of_yojson_exn : Yojson.Safe.json -> field
type t = {
title : string option;
kind : string option;
description : string option;
url : string option;
timestamp : string option;
colour : int option;
footer : footer option;
image : image option;
thumbnail : image option;
video : video option;
provider : provider option;
author : author option;
fields : field list;
}

An embed object. See this embed visualiser if you need help understanding each component.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val default : t

An embed where all values are empty.

A footer where all values are empty.

val default_image : image

An image where all values are empty.

val default_video : video

A video where all values are empty.

val default_provider : provider

A provider where all values are empty.

val default_author : author

An author where all values are empty.

val title : string -> t -> t

Set the title of an embed.

val description : string -> t -> t

Set the description of an embed.

val url : string -> t -> t

Set the URL of an embed.

val timestamp : string -> t -> t

Set the timestamp of an embed.

val colour : int -> t -> t

Set the colour of an embed.

val color : int -> t -> t

Identical to colour but with US English spelling.

Set the footer of an embed. The function passes default_footer and must return a footer.

val image : string -> t -> t

Set the image URL of an embed.

val thumbnail : string -> t -> t

Set the thumbnail URL of an embed.

val author : (author -> author) -> t -> t

Set the author of an embed. The function passes default_author and must return an author.

val field : (string * string * bool) -> t -> t

Add a field to an embed. Takes a tuple in (name, value, inline) order. Fields added this way will appear in reverse order in the embed.

val fields : (string * string * bool) list -> t -> t

Set the fields of an embed. Similar to field, but because a complete list is passed, fields preserve order.

val footer_text : string -> footer -> footer

Set the footer text. Typically used in the closure passed to footer.

Set the footer icon URL. Typically used in the closure passed to footer.

val author_name : string -> author -> author

Set the author name. Typically used in the closure passed to author.

val author_url : string -> author -> author

Set the author URL. Typically used in the closure passed to author.

val author_icon : string -> author -> author

Set the author icon URL. Typically used in the closure passed to author.

\ No newline at end of file diff --git a/docs/disml/Disml__/Emoji/index.html b/docs/disml/Disml__/Emoji/index.html new file mode 100644 index 0000000..5359ada --- /dev/null +++ b/docs/disml/Disml__/Emoji/index.html @@ -0,0 +1,2 @@ + +Emoji (disml.Disml__.Emoji)

Module Disml__.Emoji

type partial_emoji = {
id : Disml__.Snowflake.t option;
name : string;
}

A partial emoji, used internally.

val partial_emoji_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_emoji
val sexp_of_partial_emoji : partial_emoji -> Ppx_sexp_conv_lib.Sexp.t
val partial_emoji_to_yojson : partial_emoji -> Yojson.Safe.json
val partial_emoji_of_yojson : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val partial_emoji_of_yojson_exn : Yojson.Safe.json -> partial_emoji
type t = {
id : Disml__.Snowflake.t option;

Snowflake ID of the emoji. Only exists for custom emojis.

name : string;

Name of the emoji. Either the emoji custom name or a unicode character.

roles : Disml__.Role_id.t list;

List of roles required to use this emoji. Is only non-empty on some integration emojis.

user : Disml__.User_t.t option;

User object of the person who uploaded the emoji. Only exists for custom emojis.

require_colons : bool;

Whether the emoji must be wrapped in colons. Is false for unicode emojis.

managed : bool;

Whether the emoji is managed by an integration.

animated : bool;

Whether the emoji is animated.

}

A full emoji object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Endpoints/index.html b/docs/disml/Disml__/Endpoints/index.html new file mode 100644 index 0000000..a995988 --- /dev/null +++ b/docs/disml/Disml__/Endpoints/index.html @@ -0,0 +1,2 @@ + +Endpoints (disml.Disml__.Endpoints)

Module Disml__.Endpoints

val gateway : string
val gateway_bot : string
val channel : int -> string
val channel_messages : int -> string
val channel_message : int -> int -> string
val channel_reaction_me : int -> int -> string -> string
val channel_reaction : int -> int -> string -> int -> string
val channel_reactions_get : int -> int -> string -> string
val channel_reactions_delete : int -> int -> string
val channel_bulk_delete : int -> string
val channel_permission : int -> int -> string
val channel_permissions : int -> string
val channels : string
val channel_call_ring : int -> string
val channel_invites : int -> string
val channel_typing : int -> string
val channel_pins : int -> string
val channel_pin : int -> int -> string
val guilds : string
val guild : int -> string
val guild_channels : int -> string
val guild_members : int -> string
val guild_member : int -> int -> string
val guild_member_role : int -> int -> int -> string
val guild_bans : int -> string
val guild_ban : int -> int -> string
val guild_roles : int -> string
val guild_role : int -> int -> string
val guild_prune : int -> string
val guild_voice_regions : int -> string
val guild_invites : int -> string
val guild_integrations : int -> string
val guild_integration : int -> int -> string
val guild_integration_sync : int -> int -> string
val guild_embed : int -> string
val guild_emojis : int -> string
val guild_emoji : int -> int -> string
val webhooks_guild : int -> string
val webhooks_channel : int -> string
val webhook : int -> string
val webhook_token : int -> string -> string
val webhook_git : int -> string -> string
val webhook_slack : int -> string -> string
val user : int -> string
val me : string
val me_guilds : string
val me_guild : int -> string
val me_channels : string
val me_connections : string
val invite : string -> string
val regions : string
val application_information : string
val group_recipient : int -> int -> string
val guild_me_nick : int -> string
val guild_vanity_url : int -> string
val guild_audit_logs : int -> string
val cdn_embed_avatar : string -> string
val cdn_emoji : string -> string -> string
val cdn_icon : int -> string -> string -> string
val cdn_avatar : int -> string -> string -> string
val cdn_default_avatar : int -> string
\ No newline at end of file diff --git a/docs/disml/Disml__/Event/index.html b/docs/disml/Disml__/Event/index.html new file mode 100644 index 0000000..ab623c0 --- /dev/null +++ b/docs/disml/Disml__/Event/index.html @@ -0,0 +1,2 @@ + +Event (disml.Disml__.Event)

Module Disml__.Event

type t =
| READY of Disml__.Event_models.Ready.t
| RESUMED of Disml__.Event_models.Resumed.t
| CHANNEL_CREATE of Disml__.Event_models.ChannelCreate.t
| CHANNEL_UPDATE of Disml__.Event_models.ChannelUpdate.t
| CHANNEL_DELETE of Disml__.Event_models.ChannelDelete.t
| CHANNEL_PINS_UPDATE of Disml__.Event_models.ChannelPinsUpdate.t
| GUILD_CREATE of Disml__.Event_models.GuildCreate.t
| GUILD_UPDATE of Disml__.Event_models.GuildUpdate.t
| GUILD_DELETE of Disml__.Event_models.GuildDelete.t
| GUILD_BAN_ADD of Disml__.Event_models.GuildBanAdd.t
| GUILD_BAN_REMOVE of Disml__.Event_models.GuildBanRemove.t
| GUILD_EMOJIS_UPDATE of Disml__.Event_models.GuildEmojisUpdate.t
| GUILD_MEMBER_ADD of Disml__.Event_models.GuildMemberAdd.t
| GUILD_MEMBER_REMOVE of Disml__.Event_models.GuildMemberRemove.t
| GUILD_MEMBER_UPDATE of Disml__.Event_models.GuildMemberUpdate.t
| GUILD_MEMBERS_CHUNK of Disml__.Event_models.GuildMembersChunk.t
| GUILD_ROLE_CREATE of Disml__.Event_models.GuildRoleCreate.t
| GUILD_ROLE_UPDATE of Disml__.Event_models.GuildRoleUpdate.t
| GUILD_ROLE_DELETE of Disml__.Event_models.GuildRoleDelete.t
| MESSAGE_CREATE of Disml__.Event_models.MessageCreate.t
| MESSAGE_UPDATE of Disml__.Event_models.MessageUpdate.t
| MESSAGE_DELETE of Disml__.Event_models.MessageDelete.t
| MESSAGE_DELETE_BULK of Disml__.Event_models.MessageDeleteBulk.t
| REACTION_ADD of Disml__.Event_models.ReactionAdd.t
| REACTION_REMOVE of Disml__.Event_models.ReactionRemove.t
| REACTION_REMOVE_ALL of Disml__.Event_models.ReactionRemoveAll.t
| PRESENCE_UPDATE of Disml__.Event_models.PresenceUpdate.t
| TYPING_START of Disml__.Event_models.TypingStart.t
| USER_UPDATE of Disml__.Event_models.UserUpdate.t
| WEBHOOK_UPDATE of Disml__.Event_models.WebhookUpdate.t
| UNKNOWN of Disml__.Event_models.Unknown.t

Event dispatch type wrapper. Used internally.

val event_of_yojson : contents:Yojson.Safe.json -> string -> t

Used to convert an event string and payload into a t wrapper type.

val dispatch : t -> unit

Sends the event to the registered handler.

val handle_event : ev:string -> Yojson.Safe.json -> unit

Wrapper to other functions. This is called from the shards.

\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ChannelCreate/index.html b/docs/disml/Disml__/Event_models/ChannelCreate/index.html new file mode 100644 index 0000000..8685599 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ChannelCreate/index.html @@ -0,0 +1,2 @@ + +ChannelCreate (disml.Disml__.Event_models.ChannelCreate)

Module Event_models.ChannelCreate

type t = {
channel : Disml__.Channel_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ChannelDelete/index.html b/docs/disml/Disml__/Event_models/ChannelDelete/index.html new file mode 100644 index 0000000..c76170b --- /dev/null +++ b/docs/disml/Disml__/Event_models/ChannelDelete/index.html @@ -0,0 +1,2 @@ + +ChannelDelete (disml.Disml__.Event_models.ChannelDelete)

Module Event_models.ChannelDelete

type t = {
channel : Disml__.Channel_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ChannelPinsUpdate/index.html b/docs/disml/Disml__/Event_models/ChannelPinsUpdate/index.html new file mode 100644 index 0000000..caa10f1 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ChannelPinsUpdate/index.html @@ -0,0 +1,2 @@ + +ChannelPinsUpdate (disml.Disml__.Event_models.ChannelPinsUpdate)

Module Event_models.ChannelPinsUpdate

type t = {
channel_id : Disml__.Channel_id.t;
last_pin_timestamp : string option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ChannelRecipientAdd/index.html b/docs/disml/Disml__/Event_models/ChannelRecipientAdd/index.html new file mode 100644 index 0000000..15c7fc6 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ChannelRecipientAdd/index.html @@ -0,0 +1,2 @@ + +ChannelRecipientAdd (disml.Disml__.Event_models.ChannelRecipientAdd)

Module Event_models.ChannelRecipientAdd

type t = {
channel_id : Disml__.Channel_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ChannelRecipientRemove/index.html b/docs/disml/Disml__/Event_models/ChannelRecipientRemove/index.html new file mode 100644 index 0000000..f380a9d --- /dev/null +++ b/docs/disml/Disml__/Event_models/ChannelRecipientRemove/index.html @@ -0,0 +1,2 @@ + +ChannelRecipientRemove (disml.Disml__.Event_models.ChannelRecipientRemove)

Module Event_models.ChannelRecipientRemove

type t = {
channel_id : Disml__.Channel_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ChannelUpdate/index.html b/docs/disml/Disml__/Event_models/ChannelUpdate/index.html new file mode 100644 index 0000000..bafc695 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ChannelUpdate/index.html @@ -0,0 +1,2 @@ + +ChannelUpdate (disml.Disml__.Event_models.ChannelUpdate)

Module Event_models.ChannelUpdate

type t = {
channel : Disml__.Channel_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildBanAdd/index.html b/docs/disml/Disml__/Event_models/GuildBanAdd/index.html new file mode 100644 index 0000000..8fcf8ed --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildBanAdd/index.html @@ -0,0 +1,2 @@ + +GuildBanAdd (disml.Disml__.Event_models.GuildBanAdd)

Module Event_models.GuildBanAdd

type t = {
guild_id : Disml__.Guild_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildBanRemove/index.html b/docs/disml/Disml__/Event_models/GuildBanRemove/index.html new file mode 100644 index 0000000..d0e69d1 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildBanRemove/index.html @@ -0,0 +1,2 @@ + +GuildBanRemove (disml.Disml__.Event_models.GuildBanRemove)

Module Event_models.GuildBanRemove

type t = {
guild_id : Disml__.Guild_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildCreate/index.html b/docs/disml/Disml__/Event_models/GuildCreate/index.html new file mode 100644 index 0000000..951c3ec --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildCreate/index.html @@ -0,0 +1,2 @@ + +GuildCreate (disml.Disml__.Event_models.GuildCreate)

Module Event_models.GuildCreate

type t = {
guild : Disml__.Guild_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildDelete/index.html b/docs/disml/Disml__/Event_models/GuildDelete/index.html new file mode 100644 index 0000000..b98695a --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildDelete/index.html @@ -0,0 +1,2 @@ + +GuildDelete (disml.Disml__.Event_models.GuildDelete)

Module Event_models.GuildDelete

type t = {
id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildEmojisUpdate/index.html b/docs/disml/Disml__/Event_models/GuildEmojisUpdate/index.html new file mode 100644 index 0000000..bd7b384 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildEmojisUpdate/index.html @@ -0,0 +1,2 @@ + +GuildEmojisUpdate (disml.Disml__.Event_models.GuildEmojisUpdate)

Module Event_models.GuildEmojisUpdate

type t = {
emojis : Disml__.Emoji.t list;
guild_id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildMemberAdd/index.html b/docs/disml/Disml__/Event_models/GuildMemberAdd/index.html new file mode 100644 index 0000000..0f29752 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildMemberAdd/index.html @@ -0,0 +1,2 @@ + +GuildMemberAdd (disml.Disml__.Event_models.GuildMemberAdd)

Module Event_models.GuildMemberAdd

include Disml__.Member_t
type partial_member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml__.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml__.Guild_id_t.t;
user : Disml__.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml__.Guild_id_t.t;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;

The nickname of the member, if they have one set.

roles : Disml__.Role_id.t list;

The roles the member has.

joined_at : string;

An ISO8601 timestamp of when the user joined.

deaf : bool;

Whether the user is deafened.

mute : bool;

Whether the user is muted.

user : Disml__.User_t.t;

The underlying user object for the member.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which the member exists.

}

A member object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> member -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildMemberRemove/index.html b/docs/disml/Disml__/Event_models/GuildMemberRemove/index.html new file mode 100644 index 0000000..aa13b12 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildMemberRemove/index.html @@ -0,0 +1,2 @@ + +GuildMemberRemove (disml.Disml__.Event_models.GuildMemberRemove)

Module Event_models.GuildMemberRemove

type t = {
guild_id : Disml__.Guild_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildMemberUpdate/index.html b/docs/disml/Disml__/Event_models/GuildMemberUpdate/index.html new file mode 100644 index 0000000..8e1ae90 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildMemberUpdate/index.html @@ -0,0 +1,2 @@ + +GuildMemberUpdate (disml.Disml__.Event_models.GuildMemberUpdate)

Module Event_models.GuildMemberUpdate

type t = {
guild_id : Disml__.Guild_id.t;
nick : string option;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildMembersChunk/index.html b/docs/disml/Disml__/Event_models/GuildMembersChunk/index.html new file mode 100644 index 0000000..2f7d270 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildMembersChunk/index.html @@ -0,0 +1,2 @@ + +GuildMembersChunk (disml.Disml__.Event_models.GuildMembersChunk)

Module Event_models.GuildMembersChunk

type t = {
guild_id : Disml__.Guild_id.t;
members : (Disml__.Snowflake.t * Disml__.Member_t.t) list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildRoleCreate/index.html b/docs/disml/Disml__/Event_models/GuildRoleCreate/index.html new file mode 100644 index 0000000..95ee619 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildRoleCreate/index.html @@ -0,0 +1,2 @@ + +GuildRoleCreate (disml.Disml__.Event_models.GuildRoleCreate)

Module Event_models.GuildRoleCreate

type t = {
guild_id : Disml__.Guild_id.t;
role : Disml__.Role_t.role;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildRoleDelete/index.html b/docs/disml/Disml__/Event_models/GuildRoleDelete/index.html new file mode 100644 index 0000000..7072ee2 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildRoleDelete/index.html @@ -0,0 +1,2 @@ + +GuildRoleDelete (disml.Disml__.Event_models.GuildRoleDelete)

Module Event_models.GuildRoleDelete

type t = {
guild_id : Disml__.Guild_id.t;
role_id : Disml__.Role_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildRoleUpdate/index.html b/docs/disml/Disml__/Event_models/GuildRoleUpdate/index.html new file mode 100644 index 0000000..ab767ca --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildRoleUpdate/index.html @@ -0,0 +1,2 @@ + +GuildRoleUpdate (disml.Disml__.Event_models.GuildRoleUpdate)

Module Event_models.GuildRoleUpdate

type t = {
guild_id : Disml__.Guild_id.t;
role : Disml__.Role_t.role;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildUnavailable/index.html b/docs/disml/Disml__/Event_models/GuildUnavailable/index.html new file mode 100644 index 0000000..99ef3db --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildUnavailable/index.html @@ -0,0 +1,2 @@ + +GuildUnavailable (disml.Disml__.Event_models.GuildUnavailable)

Module Event_models.GuildUnavailable

type t = {
guild_id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/GuildUpdate/index.html b/docs/disml/Disml__/Event_models/GuildUpdate/index.html new file mode 100644 index 0000000..6d84622 --- /dev/null +++ b/docs/disml/Disml__/Event_models/GuildUpdate/index.html @@ -0,0 +1,2 @@ + +GuildUpdate (disml.Disml__.Event_models.GuildUpdate)

Module Event_models.GuildUpdate

type t = {
guild : Disml__.Guild_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/MessageCreate/index.html b/docs/disml/Disml__/Event_models/MessageCreate/index.html new file mode 100644 index 0000000..a49e634 --- /dev/null +++ b/docs/disml/Disml__/Event_models/MessageCreate/index.html @@ -0,0 +1,2 @@ + +MessageCreate (disml.Disml__.Event_models.MessageCreate)

Module Event_models.MessageCreate

type t = {
message : Disml__.Message_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/MessageDelete/index.html b/docs/disml/Disml__/Event_models/MessageDelete/index.html new file mode 100644 index 0000000..35524db --- /dev/null +++ b/docs/disml/Disml__/Event_models/MessageDelete/index.html @@ -0,0 +1,2 @@ + +MessageDelete (disml.Disml__.Event_models.MessageDelete)

Module Event_models.MessageDelete

type t = {
id : Disml__.Message_id.t;
channel_id : Disml__.Channel_id.t;
guild_id : Disml__.Guild_id.t option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/MessageDeleteBulk/index.html b/docs/disml/Disml__/Event_models/MessageDeleteBulk/index.html new file mode 100644 index 0000000..deb789b --- /dev/null +++ b/docs/disml/Disml__/Event_models/MessageDeleteBulk/index.html @@ -0,0 +1,2 @@ + +MessageDeleteBulk (disml.Disml__.Event_models.MessageDeleteBulk)

Module Event_models.MessageDeleteBulk

type t = {
guild_id : Disml__.Guild_id.t option;
channel_id : Disml__.Channel_id.t;
ids : Disml__.Message_id.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/MessageUpdate/index.html b/docs/disml/Disml__/Event_models/MessageUpdate/index.html new file mode 100644 index 0000000..fc59e8b --- /dev/null +++ b/docs/disml/Disml__/Event_models/MessageUpdate/index.html @@ -0,0 +1,2 @@ + +MessageUpdate (disml.Disml__.Event_models.MessageUpdate)

Module Event_models.MessageUpdate

type t = {
id : Disml__.Message_id.t;
author : Disml__.User_t.t option;
channel_id : Disml__.Channel_id.t;
member : Disml__.Member_t.partial_member option;
guild_id : Disml__.Guild_id.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Disml__.User_id.t list;
role_mentions : Disml__.Role_id.t list;
attachments : Disml__.Attachment.t list;
embeds : Disml__.Embed.t list;
reactions : Disml__.Snowflake.t list;
nonce : Disml__.Snowflake.t option;
pinned : bool option;
webhook_id : Disml__.Snowflake.t option;
kind : int option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/PresenceUpdate/index.html b/docs/disml/Disml__/Event_models/PresenceUpdate/index.html new file mode 100644 index 0000000..90a7bf0 --- /dev/null +++ b/docs/disml/Disml__/Event_models/PresenceUpdate/index.html @@ -0,0 +1,2 @@ + +PresenceUpdate (disml.Disml__.Event_models.PresenceUpdate)

Module Event_models.PresenceUpdate

include Disml__.Presence
type t = {
user : Disml__.User_t.partial_user;

A partial user that this presence belongs to.

roles : Disml__.Role_id.t list;

A list of roles that the user has.

game : Disml__.Activity.t option;

The current activity of the user, if any.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which this presence exists.

status : string;

One of online, idle, offline, or dnd.

activities : Disml__.Activity.t list;

A list of all of the user's current activities.

}

A user presence.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ReactionAdd/index.html b/docs/disml/Disml__/Event_models/ReactionAdd/index.html new file mode 100644 index 0000000..9eb5990 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ReactionAdd/index.html @@ -0,0 +1,2 @@ + +ReactionAdd (disml.Disml__.Event_models.ReactionAdd)

Module Event_models.ReactionAdd

type t = {
user_id : Disml__.User_id.t;
channel_id : Disml__.Channel_id.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id.t option;
emoji : Disml__.Emoji.partial_emoji;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ReactionRemove/index.html b/docs/disml/Disml__/Event_models/ReactionRemove/index.html new file mode 100644 index 0000000..bc63e42 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ReactionRemove/index.html @@ -0,0 +1,2 @@ + +ReactionRemove (disml.Disml__.Event_models.ReactionRemove)

Module Event_models.ReactionRemove

type t = {
user_id : Disml__.User_id.t;
channel_id : Disml__.Channel_id.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id.t option;
emoji : Disml__.Emoji.partial_emoji;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/ReactionRemoveAll/index.html b/docs/disml/Disml__/Event_models/ReactionRemoveAll/index.html new file mode 100644 index 0000000..80cfeb8 --- /dev/null +++ b/docs/disml/Disml__/Event_models/ReactionRemoveAll/index.html @@ -0,0 +1,2 @@ + +ReactionRemoveAll (disml.Disml__.Event_models.ReactionRemoveAll)

Module Event_models.ReactionRemoveAll

type t = {
channel_id : Disml__.Channel_id.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id.t option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/Ready/index.html b/docs/disml/Disml__/Event_models/Ready/index.html new file mode 100644 index 0000000..499b267 --- /dev/null +++ b/docs/disml/Disml__/Event_models/Ready/index.html @@ -0,0 +1,2 @@ + +Ready (disml.Disml__.Event_models.Ready)

Module Event_models.Ready

type t = {
version : int;
user : Disml__.User_t.t;
private_channels : Disml__.Channel_id.t list;
guilds : Disml__.Guild_t.unavailable list;
session_id : string;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/Resumed/index.html b/docs/disml/Disml__/Event_models/Resumed/index.html new file mode 100644 index 0000000..852b80e --- /dev/null +++ b/docs/disml/Disml__/Event_models/Resumed/index.html @@ -0,0 +1,2 @@ + +Resumed (disml.Disml__.Event_models.Resumed)

Module Event_models.Resumed

type t = {
trace : string option list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/TypingStart/index.html b/docs/disml/Disml__/Event_models/TypingStart/index.html new file mode 100644 index 0000000..2341868 --- /dev/null +++ b/docs/disml/Disml__/Event_models/TypingStart/index.html @@ -0,0 +1,2 @@ + +TypingStart (disml.Disml__.Event_models.TypingStart)

Module Event_models.TypingStart

type t = {
channel_id : Disml__.Channel_id.t;
guild_id : Disml__.Guild_id.t option;
timestamp : int;
user_id : Disml__.User_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/Unknown/index.html b/docs/disml/Disml__/Event_models/Unknown/index.html new file mode 100644 index 0000000..4f89f65 --- /dev/null +++ b/docs/disml/Disml__/Event_models/Unknown/index.html @@ -0,0 +1,2 @@ + +Unknown (disml.Disml__.Event_models.Unknown)

Module Event_models.Unknown

type t = {
kind : string;
value : Yojson.Safe.json;
}
val deserialize : string -> Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/UserUpdate/index.html b/docs/disml/Disml__/Event_models/UserUpdate/index.html new file mode 100644 index 0000000..e54d5f7 --- /dev/null +++ b/docs/disml/Disml__/Event_models/UserUpdate/index.html @@ -0,0 +1,2 @@ + +UserUpdate (disml.Disml__.Event_models.UserUpdate)

Module Event_models.UserUpdate

type t = {
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/WebhookUpdate/index.html b/docs/disml/Disml__/Event_models/WebhookUpdate/index.html new file mode 100644 index 0000000..f2d6032 --- /dev/null +++ b/docs/disml/Disml__/Event_models/WebhookUpdate/index.html @@ -0,0 +1,2 @@ + +WebhookUpdate (disml.Disml__.Event_models.WebhookUpdate)

Module Event_models.WebhookUpdate

type t = {
channel_id : Disml__.Channel_id.t;
guild_id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Event_models/index.html b/docs/disml/Disml__/Event_models/index.html new file mode 100644 index 0000000..45e0087 --- /dev/null +++ b/docs/disml/Disml__/Event_models/index.html @@ -0,0 +1,2 @@ + +Event_models (disml.Disml__.Event_models)

Module Disml__.Event_models

module ChannelCreate : sig ... end
module ChannelDelete : sig ... end
module ChannelUpdate : sig ... end
module ChannelPinsUpdate : sig ... end
module ChannelRecipientAdd : sig ... end
module ChannelRecipientRemove : sig ... end
module GuildBanAdd : sig ... end
module GuildBanRemove : sig ... end
module GuildCreate : sig ... end
module GuildDelete : sig ... end
module GuildUpdate : sig ... end
module GuildEmojisUpdate : sig ... end
module GuildMemberAdd : sig ... end
module GuildMemberRemove : sig ... end
module GuildMemberUpdate : sig ... end
module GuildMembersChunk : sig ... end
module GuildRoleCreate : sig ... end
module GuildRoleDelete : sig ... end
module GuildRoleUpdate : sig ... end
module GuildUnavailable : sig ... end
module MessageCreate : sig ... end
module MessageDelete : sig ... end
module MessageUpdate : sig ... end
module MessageDeleteBulk : sig ... end
module PresenceUpdate : sig ... end
module ReactionAdd : sig ... end
module ReactionRemove : sig ... end
module ReactionRemoveAll : sig ... end
module Ready : sig ... end
module Resumed : sig ... end
module TypingStart : sig ... end
module UserUpdate : sig ... end
module WebhookUpdate : sig ... end
module Unknown : sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__/Guild/index.html b/docs/disml/Disml__/Guild/index.html new file mode 100644 index 0000000..13c60e1 --- /dev/null +++ b/docs/disml/Disml__/Guild/index.html @@ -0,0 +1,2 @@ + +Guild (disml.Disml__.Guild)

Module Disml__.Guild

include module type of Disml__.Guild_t
type unavailable = {
id : Disml__.Guild_id_t.t;
}
val unavailable_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> unavailable
val sexp_of_unavailable : unavailable -> Ppx_sexp_conv_lib.Sexp.t
val unavailable_to_yojson : unavailable -> Yojson.Safe.json
val unavailable_of_yojson : Yojson.Safe.json -> unavailable Ppx_deriving_yojson_runtime.error_or
val unavailable_of_yojson_exn : Yojson.Safe.json -> unavailable
type pre = {
id : Disml__.Guild_id_t.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml__.User_id_t.t;
region : string;
afk_channel_id : Disml__.Channel_id_t.t option;
afk_timeout : int;
embed_enabled : bool;
embed_channel_id : Disml__.Channel_id_t.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml__.Role_t.role list;
emojis : Disml__.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml__.Snowflake.t option;
widget_enabled : bool;
widget_channel_id : Disml__.Channel_id_t.t option;
system_channel_id : Disml__.Channel_id_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml__.Member_t.member list;
channels : Disml__.Channel_t.channel_wrapper list;
}

Used internally.

val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Disml__.Guild_id_t.t;

The guild's snowflake ID.

name : string;

The guild name.

icon : string option;

The guild icon hash, if one is set.

splash : string option;

The guild splash hash, if one is set.

owner_id : Disml__.User_id_t.t;

The user ID of the owner.

region : string;

The region the guild is in.

afk_channel_id : Disml__.Channel_id_t.t option;

The AFK channel ID, if one is set.

afk_timeout : int;

The time before a user is moved to the AFK channel.

embed_enabled : bool;

Whether the embed is enabled.

embed_channel_id : Disml__.Channel_id_t.t option;

The channel ID of the embed channel, if it is enabled.

verification_level : int;

See the discord docs for details.

default_message_notifications : int;

0 = All messages, 1 = Only mentions

explicit_content_filter : int;

0 = Disabled, 1 = For members with no roles, 2 = All members

roles : Disml__.Role_t.t list;

List of roles in the guild.

emojis : Disml__.Emoji.t list;

List of custom emojis in the guild.

features : string list;

A List of features enabled for the guild.

mfa_level : int;

0 = None, 1 = Elevated

application_id : Disml__.Snowflake.t option;

Snowflake ID if the guild is bot-created.

widget_enabled : bool;

Whether the widget is enabled.

widget_channel_id : Disml__.Channel_id_t.t option;

The channel ID for the widget, if enabled.

system_channel_id : Disml__.Channel_id_t.t option;

The channel ID where system messages are sent.

large : bool;

Whether the guild exceeds the configured large threshold.

unavailable : bool;

Whether the guild is unavailable or not.

member_count : int option;

Total number of members in the guild.

members : Disml__.Member_t.t list;

List of guild members.

channels : Disml__.Channel_t.t list;

List of guild channels.

}

A Guild object

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.GuildImpl with type t := Disml__.Guild_t.t
type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val get_channel : id:Disml__.Channel_id_t.t -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t

Get a channel belonging to this guild. This does not make an HTTP request.

val get_member : id:Disml__.User_id_t.t -> t -> Disml__.Member_t.t Async.Deferred.Or_error.t

Get a member belonging to this guild. This does not make an HTTP request.

val get_role : id:Disml__.Role_id.t -> t -> Disml__.Role_t.t option

Get a role belonging to this guild. This does not make an HTTP request.

\ No newline at end of file diff --git a/docs/disml/Disml__/Guild_id/index.html b/docs/disml/Disml__/Guild_id/index.html new file mode 100644 index 0000000..88ac2aa --- /dev/null +++ b/docs/disml/Disml__/Guild_id/index.html @@ -0,0 +1,2 @@ + +Guild_id (disml.Disml__.Guild_id)

Module Disml__.Guild_id

include module type of Disml__.Guild_id_t
type t = [
| `Guild_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.GuildImpl with type t := Disml__.Guild_id_t.t
type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Guild_id_t/index.html b/docs/disml/Disml__/Guild_id_t/index.html new file mode 100644 index 0000000..b35e401 --- /dev/null +++ b/docs/disml/Disml__/Guild_id_t/index.html @@ -0,0 +1,2 @@ + +Guild_id_t (disml.Disml__.Guild_id_t)

Module Disml__.Guild_id_t

type t = [
| `Guild_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Guild_t/index.html b/docs/disml/Disml__/Guild_t/index.html new file mode 100644 index 0000000..83386d4 --- /dev/null +++ b/docs/disml/Disml__/Guild_t/index.html @@ -0,0 +1,2 @@ + +Guild_t (disml.Disml__.Guild_t)

Module Disml__.Guild_t

type unavailable = {
id : Disml__.Guild_id_t.t;
}
val unavailable_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> unavailable
val sexp_of_unavailable : unavailable -> Ppx_sexp_conv_lib.Sexp.t
val unavailable_to_yojson : unavailable -> Yojson.Safe.json
val unavailable_of_yojson : Yojson.Safe.json -> unavailable Ppx_deriving_yojson_runtime.error_or
val unavailable_of_yojson_exn : Yojson.Safe.json -> unavailable
type pre = {
id : Disml__.Guild_id_t.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml__.User_id_t.t;
region : string;
afk_channel_id : Disml__.Channel_id_t.t option;
afk_timeout : int;
embed_enabled : bool;
embed_channel_id : Disml__.Channel_id_t.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml__.Role_t.role list;
emojis : Disml__.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml__.Snowflake.t option;
widget_enabled : bool;
widget_channel_id : Disml__.Channel_id_t.t option;
system_channel_id : Disml__.Channel_id_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml__.Member_t.member list;
channels : Disml__.Channel_t.channel_wrapper list;
}

Used internally.

val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Disml__.Guild_id_t.t;

The guild's snowflake ID.

name : string;

The guild name.

icon : string option;

The guild icon hash, if one is set.

splash : string option;

The guild splash hash, if one is set.

owner_id : Disml__.User_id_t.t;

The user ID of the owner.

region : string;

The region the guild is in.

afk_channel_id : Disml__.Channel_id_t.t option;

The AFK channel ID, if one is set.

afk_timeout : int;

The time before a user is moved to the AFK channel.

embed_enabled : bool;

Whether the embed is enabled.

embed_channel_id : Disml__.Channel_id_t.t option;

The channel ID of the embed channel, if it is enabled.

verification_level : int;

See the discord docs for details.

default_message_notifications : int;

0 = All messages, 1 = Only mentions

explicit_content_filter : int;

0 = Disabled, 1 = For members with no roles, 2 = All members

roles : Disml__.Role_t.t list;

List of roles in the guild.

emojis : Disml__.Emoji.t list;

List of custom emojis in the guild.

features : string list;

A List of features enabled for the guild.

mfa_level : int;

0 = None, 1 = Elevated

application_id : Disml__.Snowflake.t option;

Snowflake ID if the guild is bot-created.

widget_enabled : bool;

Whether the widget is enabled.

widget_channel_id : Disml__.Channel_id_t.t option;

The channel ID for the widget, if enabled.

system_channel_id : Disml__.Channel_id_t.t option;

The channel ID where system messages are sent.

large : bool;

Whether the guild exceeds the configured large threshold.

unavailable : bool;

Whether the guild is unavailable or not.

member_count : int option;

Total number of members in the guild.

members : Disml__.Member_t.t list;

List of guild members.

channels : Disml__.Channel_t.t list;

List of guild channels.

}

A Guild object

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Http/Base/index.html b/docs/disml/Disml__/Http/Base/index.html new file mode 100644 index 0000000..10a6df1 --- /dev/null +++ b/docs/disml/Disml__/Http/Base/index.html @@ -0,0 +1,2 @@ + +Base (disml.Disml__.Http.Base)

Module Http.Base

exception Invalid_Method
val base_url : string
val process_url : string -> Uri.t
val process_request_body : Yojson.Safe.json -> Cohttp_async.Body.t
val process_request_headers : unit -> Cohttp.Header.t
val process_response : string -> (Cohttp_async.Response.t * Cohttp_async.Body.t) -> Yojson.Safe.json Async.Deferred.Or_error.t
val request : ?⁠body:Yojson.Safe.json -> ?⁠query:(string * string) list -> [> `DELETE | `GET | `PATCH | `POST | `PUT ] -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Http/index.html b/docs/disml/Disml__/Http/index.html new file mode 100644 index 0000000..6ade635 --- /dev/null +++ b/docs/disml/Disml__/Http/index.html @@ -0,0 +1,2 @@ + +Http (disml.Disml__.Http)

Module Disml__.Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete_channel : int -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val get_message : int -> int -> Disml__.Message_t.t Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Disml__.Message_t.t Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> unit Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> unit Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> unit Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Disml__.User_t.t list Async.Deferred.Or_error.t
val delete_reactions : int -> int -> unit Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Disml__.Message_t.t Async.Deferred.Or_error.t
val delete_message : int -> int -> unit Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> unit Async.Deferred.Or_error.t
val broadcast_typing : int -> unit Async.Deferred.Or_error.t
val get_pinned_messages : int -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val pin_message : int -> int -> unit Async.Deferred.Or_error.t
val unpin_message : int -> int -> unit Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> unit Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> unit Async.Deferred.Or_error.t
val get_emojis : int -> Disml__.Emoji.t list Async.Deferred.Or_error.t
val get_emoji : int -> int -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Disml__.Emoji.t Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Disml__.Emoji.t Async.Deferred.Or_error.t
val delete_emoji : int -> int -> unit Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val get_guild : int -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val delete_guild : int -> unit Async.Deferred.Or_error.t
val get_guild_channels : int -> Disml__.Channel_t.t list Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_member : int -> int -> Disml__.Member.t Async.Deferred.Or_error.t
val get_members : int -> Disml__.Member.t list Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Disml__.Member.t Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> unit Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> unit Async.Deferred.Or_error.t
val get_bans : int -> Disml__.Ban.t list Async.Deferred.Or_error.t
val get_ban : int -> int -> Disml__.Ban.t Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_roles : int -> Disml__.Role_t.t list Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Disml__.Role_t.t Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Disml__.Role_t.t list Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Disml__.Role_t.t Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> unit Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> int Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> int Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val delete_integration : int -> int -> unit Async.Deferred.Or_error.t
val sync_integration : int -> int -> unit Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Disml__.User_t.t Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Disml__.User_t.t Async.Deferred.Or_error.t
val get_guilds : unit -> Disml__.Guild_t.t list Async.Deferred.Or_error.t
val leave_guild : int -> unit Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Disml__.User_t.t Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> unit Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> unit Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_application_info : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/Channel/argument-1-T/index.html b/docs/disml/Disml__/Impl/Channel/argument-1-T/index.html new file mode 100644 index 0000000..46485b1 --- /dev/null +++ b/docs/disml/Disml__/Impl/Channel/argument-1-T/index.html @@ -0,0 +1,2 @@ + +1-T (disml.Disml__.Impl.Channel.1-T)

Parameter Channel.1-T

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/Channel/index.html b/docs/disml/Disml__/Impl/Channel/index.html new file mode 100644 index 0000000..b9effaf --- /dev/null +++ b/docs/disml/Disml__/Impl/Channel/index.html @@ -0,0 +1,10 @@ + +Channel (disml.Disml__.Impl.Channel)

Module Impl.Channel

Parameters

T : Disml__.S.HasSnowflake

Signature

type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/Guild/argument-1-T/index.html b/docs/disml/Disml__/Impl/Guild/argument-1-T/index.html new file mode 100644 index 0000000..cdff3b0 --- /dev/null +++ b/docs/disml/Disml__/Impl/Guild/argument-1-T/index.html @@ -0,0 +1,2 @@ + +1-T (disml.Disml__.Impl.Guild.1-T)

Parameter Guild.1-T

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/Guild/index.html b/docs/disml/Disml__/Impl/Guild/index.html new file mode 100644 index 0000000..ea4f168 --- /dev/null +++ b/docs/disml/Disml__/Impl/Guild/index.html @@ -0,0 +1,2 @@ + +Guild (disml.Disml__.Impl.Guild)

Module Impl.Guild

Parameters

T : Disml__.S.HasSnowflake

Signature

type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/User/argument-1-T/index.html b/docs/disml/Disml__/Impl/User/argument-1-T/index.html new file mode 100644 index 0000000..7661077 --- /dev/null +++ b/docs/disml/Disml__/Impl/User/argument-1-T/index.html @@ -0,0 +1,2 @@ + +1-T (disml.Disml__.Impl.User.1-T)

Parameter User.1-T

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/User/index.html b/docs/disml/Disml__/Impl/User/index.html new file mode 100644 index 0000000..586823c --- /dev/null +++ b/docs/disml/Disml__/Impl/User/index.html @@ -0,0 +1,2 @@ + +User (disml.Disml__.Impl.User)

Module Impl.User

Parameters

T : Disml__.S.HasSnowflake

Signature

type t
\ No newline at end of file diff --git a/docs/disml/Disml__/Impl/index.html b/docs/disml/Disml__/Impl/index.html new file mode 100644 index 0000000..9df75c2 --- /dev/null +++ b/docs/disml/Disml__/Impl/index.html @@ -0,0 +1,2 @@ + +Impl (disml.Disml__.Impl)

Module Disml__.Impl

module Channel : functor (T : Disml__.S.HasSnowflake) -> Disml__.S.ChannelImpl with type t := T.t
module Guild : functor (T : Disml__.S.HasSnowflake) -> Disml__.S.GuildImpl with type t := T.t
module User : functor (T : Disml__.S.HasSnowflake) -> Disml__.S.UserImpl with type t := T.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Member/index.html b/docs/disml/Disml__/Member/index.html new file mode 100644 index 0000000..81b8e4d --- /dev/null +++ b/docs/disml/Disml__/Member/index.html @@ -0,0 +1,2 @@ + +Member (disml.Disml__.Member)

Module Disml__.Member

include module type of Disml__.Member_t
type partial_member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml__.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml__.Guild_id_t.t;
user : Disml__.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml__.Guild_id_t.t;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;

The nickname of the member, if they have one set.

roles : Disml__.Role_id.t list;

The roles the member has.

joined_at : string;

An ISO8601 timestamp of when the user joined.

deaf : bool;

Whether the user is deafened.

mute : bool;

Whether the user is muted.

user : Disml__.User_t.t;

The underlying user object for the member.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which the member exists.

}

A member object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> member -> t
val add_role : role:Disml__.Role_t.t -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Adds a role to the member.

val remove_role : role:Disml__.Role_t.t -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Removes a role from the member.

val ban : ?⁠reason:string -> ?⁠days:int -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Bans the member with optional reason and days of messages to delete.

val kick : ?⁠reason:string -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Kicks the member with the optional reason.

val mute : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Mutes the member, preventing them from speaking in voice chats.

val deafen : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Deafens the member, preventing them from hearing others in voice chats.

val unmute : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Opposite of mute.

val undeafen : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Opposite of deafen.

\ No newline at end of file diff --git a/docs/disml/Disml__/Member_t/index.html b/docs/disml/Disml__/Member_t/index.html new file mode 100644 index 0000000..89e4e7d --- /dev/null +++ b/docs/disml/Disml__/Member_t/index.html @@ -0,0 +1,2 @@ + +Member_t (disml.Disml__.Member_t)

Module Disml__.Member_t

type partial_member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml__.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml__.Guild_id_t.t;
user : Disml__.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml__.Guild_id_t.t;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;

The nickname of the member, if they have one set.

roles : Disml__.Role_id.t list;

The roles the member has.

joined_at : string;

An ISO8601 timestamp of when the user joined.

deaf : bool;

Whether the user is deafened.

mute : bool;

Whether the user is muted.

user : Disml__.User_t.t;

The underlying user object for the member.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which the member exists.

}

A member object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> member -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Message/index.html b/docs/disml/Disml__/Message/index.html new file mode 100644 index 0000000..b56fe33 --- /dev/null +++ b/docs/disml/Disml__/Message/index.html @@ -0,0 +1,2 @@ + +Message (disml.Disml__.Message)

Module Disml__.Message

include module type of Disml__.Message_t
type t = {
id : Disml__.Message_id.t;

Snowflake ID of the message.

author : Disml__.User_t.t;

User that authored the message.

channel_id : Disml__.Channel_id_t.t;

Channel ID the message exists in.

member : Disml__.Member_t.partial_member option;

A partial member if the message was sent in a guild.

guild_id : Disml__.Guild_id_t.t option;

Guild ID if the message was sent in a guild.

content : string;

Content of the message.

timestamp : string;

ISO8601 timestamp of when the message was created.

edited_timestamp : string option;

Like timestamp, but for last edit, if any.

tts : bool;

Whether the message used text-to-speech.

mention_everyone : bool;

Whether the message mentioned @everyone or @here

mentions : Disml__.User_t.t list;

A List of users that were mentioned in the message.

mention_roles : Disml__.Role_id.t list;

A list of roles that were mentioned in the message.

attachments : Disml__.Attachment.t list;

A list of attachments.

embeds : Disml__.Embed.t list;

A List of embeds on the message.

reactions : Disml__.Snowflake.t list;

A list of reactions.

nonce : Disml__.Snowflake.t option;

Used in verification, safe to ignore.

pinned : bool;

Whether the message is pinned.

webhook_id : Disml__.Snowflake.t option;

The webhook ID, if the message was sent by a webhook.

kind : int;

See the discord docs for message type enumeration.

}

Represents a message object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val add_reaction : t -> Disml__.Emoji.t -> unit Async.Deferred.Or_error.t

Add the given emoji as a reaction.

val remove_reaction : t -> Disml__.Emoji.t -> Disml__.User_t.t -> unit Async.Deferred.Or_error.t

Remove the reaction. Must also specify the user.

val clear_reactions : t -> unit Async.Deferred.Or_error.t

Remove all reactions from the message.

val delete : t -> unit Async.Deferred.Or_error.t

Delete the message.

val pin : t -> unit Async.Deferred.Or_error.t

Pin the message.

val unpin : t -> unit Async.Deferred.Or_error.t

Unping the message.

val reply : t -> string -> t Async.Deferred.Or_error.t

Sugar for Channel_id.say msg.channel_id content.

val reply_with : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Sugar for Channel_id.send_message ?embed ?content ?file ?tts msg.channel_id.

val set_content : t -> string -> t Async.Deferred.Or_error.t

Set the content of the message.

val set_embed : t -> Disml__.Embed.t -> t Async.Deferred.Or_error.t

Set the embed of the message.

\ No newline at end of file diff --git a/docs/disml/Disml__/Message_id/index.html b/docs/disml/Disml__/Message_id/index.html new file mode 100644 index 0000000..4e406eb --- /dev/null +++ b/docs/disml/Disml__/Message_id/index.html @@ -0,0 +1,2 @@ + +Message_id (disml.Disml__.Message_id)

Module Disml__.Message_id

type t = [
| `Message_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Message_t/index.html b/docs/disml/Disml__/Message_t/index.html new file mode 100644 index 0000000..c78dd27 --- /dev/null +++ b/docs/disml/Disml__/Message_t/index.html @@ -0,0 +1,2 @@ + +Message_t (disml.Disml__.Message_t)

Module Disml__.Message_t

type t = {
id : Disml__.Message_id.t;

Snowflake ID of the message.

author : Disml__.User_t.t;

User that authored the message.

channel_id : Disml__.Channel_id_t.t;

Channel ID the message exists in.

member : Disml__.Member_t.partial_member option;

A partial member if the message was sent in a guild.

guild_id : Disml__.Guild_id_t.t option;

Guild ID if the message was sent in a guild.

content : string;

Content of the message.

timestamp : string;

ISO8601 timestamp of when the message was created.

edited_timestamp : string option;

Like timestamp, but for last edit, if any.

tts : bool;

Whether the message used text-to-speech.

mention_everyone : bool;

Whether the message mentioned @everyone or @here

mentions : Disml__.User_t.t list;

A List of users that were mentioned in the message.

mention_roles : Disml__.Role_id.t list;

A list of roles that were mentioned in the message.

attachments : Disml__.Attachment.t list;

A list of attachments.

embeds : Disml__.Embed.t list;

A List of embeds on the message.

reactions : Disml__.Snowflake.t list;

A list of reactions.

nonce : Disml__.Snowflake.t option;

Used in verification, safe to ignore.

pinned : bool;

Whether the message is pinned.

webhook_id : Disml__.Snowflake.t option;

The webhook ID, if the message was sent by a webhook.

kind : int;

See the discord docs for message type enumeration.

}

Represents a message object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Opcode/index.html b/docs/disml/Disml__/Opcode/index.html new file mode 100644 index 0000000..c1b2f02 --- /dev/null +++ b/docs/disml/Disml__/Opcode/index.html @@ -0,0 +1,2 @@ + +Opcode (disml.Disml__.Opcode)

Module Disml__.Opcode

type t =
| DISPATCH
| HEARTBEAT
| IDENTIFY
| STATUS_UPDATE
| VOICE_STATE_UPDATE
| RESUME
| RECONNECT
| REQUEST_GUILD_MEMBERS
| INVALID_SESSION
| HELLO
| HEARTBEAT_ACK

Type of known opcodes.

exception Invalid_Opcode of int

Raised when receiving an invalid opcode. This should never occur.

val to_int : t -> int

Converts an opcode to its integer form for outgoing frames.

val from_int : int -> t

Converts an integer to an opcode for incoming frames. Raise Invalid_Opcode Raised when an unkown opcode is received.

val to_string : t -> string

Converts and opcode to a human-readable string. Used for logging purposes.

\ No newline at end of file diff --git a/docs/disml/Disml__/Presence/index.html b/docs/disml/Disml__/Presence/index.html new file mode 100644 index 0000000..176f478 --- /dev/null +++ b/docs/disml/Disml__/Presence/index.html @@ -0,0 +1,2 @@ + +Presence (disml.Disml__.Presence)

Module Disml__.Presence

type t = {
user : Disml__.User_t.partial_user;

A partial user that this presence belongs to.

roles : Disml__.Role_id.t list;

A list of roles that the user has.

game : Disml__.Activity.t option;

The current activity of the user, if any.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which this presence exists.

status : string;

One of online, idle, offline, or dnd.

activities : Disml__.Activity.t list;

A list of all of the user's current activities.

}

A user presence.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Reaction/index.html b/docs/disml/Disml__/Reaction/index.html new file mode 100644 index 0000000..e1393bf --- /dev/null +++ b/docs/disml/Disml__/Reaction/index.html @@ -0,0 +1,2 @@ + +Reaction (disml.Disml__.Reaction)

Module Disml__.Reaction

include module type of Disml__.Reaction_t
type reaction_event = {
user_id : Disml__.User_id_t.t;
channel_id : Disml__.Channel_id_t.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id_t.t option;
emoji : Disml__.Emoji.partial_emoji;
}

Represents a single reaction as received over the gateway.

val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml__.Emoji.t;
}

Represents a number of emojis used as a reaction on a message.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Reaction_t/index.html b/docs/disml/Disml__/Reaction_t/index.html new file mode 100644 index 0000000..676a724 --- /dev/null +++ b/docs/disml/Disml__/Reaction_t/index.html @@ -0,0 +1,2 @@ + +Reaction_t (disml.Disml__.Reaction_t)

Module Disml__.Reaction_t

type reaction_event = {
user_id : Disml__.User_id_t.t;
channel_id : Disml__.Channel_id_t.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id_t.t option;
emoji : Disml__.Emoji.partial_emoji;
}

Represents a single reaction as received over the gateway.

val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml__.Emoji.t;
}

Represents a number of emojis used as a reaction on a message.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Key/index.html b/docs/disml/Disml__/Rl/RouteMap/Key/index.html new file mode 100644 index 0000000..596e980 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Key/index.html @@ -0,0 +1,2 @@ + +Key (disml.Disml__.Rl.RouteMap.Key)

Module RouteMap.Key

type t = Core.String.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
type comparator_witness = Core_kernel__Map.Make(Core.String).Key.comparator_witness
val comparator : (t, comparator_witness) Core_kernel__.Comparator.comparator
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html b/docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html new file mode 100644 index 0000000..826c801 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml__.Rl.RouteMap.Provide_bin_io.1-Key)

Parameter Provide_bin_io.1-Key

val bin_t : Key.t Bin_prot.Type_class.t
val bin_read_t : Key.t Bin_prot.Read.reader
val __bin_read_t__ : (Core_kernel__.Import.int -> Key.t) Bin_prot.Read.reader
val bin_reader_t : Key.t Bin_prot.Type_class.reader
val bin_size_t : Key.t Bin_prot.Size.sizer
val bin_write_t : Key.t Bin_prot.Write.writer
val bin_writer_t : Key.t Bin_prot.Type_class.writer
val bin_shape_t : Bin_prot.Shape.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/index.html b/docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/index.html new file mode 100644 index 0000000..4c4a757 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Provide_bin_io/index.html @@ -0,0 +1,2 @@ + +Provide_bin_io (disml.Disml__.Rl.RouteMap.Provide_bin_io)

Module RouteMap.Provide_bin_io

Parameters

Key : sig ... end

Signature

val bin_shape_t : Bin_prot.Shape.t -> Bin_prot.Shape.t
val bin_size_t : ('a, 'a t) Bin_prot.Size.sizer1
val bin_write_t : ('a, 'a t) Bin_prot.Write.writer1
val bin_read_t : ('a, 'a t) Bin_prot.Read.reader1
val __bin_read_t__ : ('a, int -> 'a t) Bin_prot.Read.reader1
val bin_writer_t : ('a, 'a t) Bin_prot.Type_class.S1.writer
val bin_reader_t : ('a, 'a t) Bin_prot.Type_class.S1.reader
val bin_t : ('a, 'a t) Bin_prot.Type_class.S1.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Provide_hash/argument-1-Key/index.html b/docs/disml/Disml__/Rl/RouteMap/Provide_hash/argument-1-Key/index.html new file mode 100644 index 0000000..a31f81e --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Provide_hash/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml__.Rl.RouteMap.Provide_hash.1-Key)

Parameter Provide_hash.1-Key

val hash_fold_t : Base__.Hash.state -> Key.t -> Base__.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Provide_hash/index.html b/docs/disml/Disml__/Rl/RouteMap/Provide_hash/index.html new file mode 100644 index 0000000..ef63e42 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Provide_hash/index.html @@ -0,0 +1,2 @@ + +Provide_hash (disml.Disml__.Rl.RouteMap.Provide_hash)

Module RouteMap.Provide_hash

Parameters

Key : sig ... end

Signature

val hash_fold_t : (Ppx_hash_lib.Std.Hash.state -> 'a -> Ppx_hash_lib.Std.Hash.state) -> Ppx_hash_lib.Std.Hash.state -> 'a t -> Ppx_hash_lib.Std.Hash.state
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html b/docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html new file mode 100644 index 0000000..29e405c --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/argument-1-Key/index.html @@ -0,0 +1,2 @@ + +1-Key (disml.Disml__.Rl.RouteMap.Provide_of_sexp.1-Key)

Parameter Provide_of_sexp.1-Key

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/index.html b/docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/index.html new file mode 100644 index 0000000..0607fa8 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Provide_of_sexp/index.html @@ -0,0 +1,2 @@ + +Provide_of_sexp (disml.Disml__.Rl.RouteMap.Provide_of_sexp)

Module RouteMap.Provide_of_sexp

Parameters

Key : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__018_ t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html b/docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html new file mode 100644 index 0000000..f0f1cef --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/argument-1-K/index.html @@ -0,0 +1,2 @@ + +1-K (disml.Disml__.Rl.RouteMap.Tree.Provide_of_sexp.1-K)

Parameter Provide_of_sexp.1-K

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> Key.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/index.html b/docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/index.html new file mode 100644 index 0000000..61bbc46 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Tree/Provide_of_sexp/index.html @@ -0,0 +1,2 @@ + +Provide_of_sexp (disml.Disml__.Rl.RouteMap.Tree.Provide_of_sexp)

Module Tree.Provide_of_sexp

Parameters

K : sig ... end

Signature

val t_of_sexp : (Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_) -> Ppx_sexp_conv_lib.Sexp.t -> 'v_x__017_ t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/Tree/index.html b/docs/disml/Disml__/Rl/RouteMap/Tree/index.html new file mode 100644 index 0000000..3724155 --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/Tree/index.html @@ -0,0 +1,2 @@ + +Tree (disml.Disml__.Rl.RouteMap.Tree)

Module RouteMap.Tree

type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Tree.t
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (K : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/RouteMap/index.html b/docs/disml/Disml__/Rl/RouteMap/index.html new file mode 100644 index 0000000..875e46c --- /dev/null +++ b/docs/disml/Disml__/Rl/RouteMap/index.html @@ -0,0 +1,2 @@ + +RouteMap (disml.Disml__.Rl.RouteMap)

Module Rl.RouteMap

Type for mapping route -> rl.

module Key : sig ... end
module Tree : sig ... end
type 'a t = (Key.t, 'a, Key.comparator_witness) Core_kernel__.Map_intf.Map.t
val compare : ('a -> 'a -> Core_kernel__.Import.int) -> 'a t -> 'a t -> Core_kernel__.Import.int
val empty : 'a t
val singleton : Key.t -> 'a -> 'a t
val of_alist : (Key.t * 'a) list -> [ `Duplicate_key of Key.t | `Ok of 'a t ]
val of_alist_or_error : (Key.t * 'a) list -> 'a t Base__.Or_error.t
val of_alist_exn : (Key.t * 'a) list -> 'a t
val of_alist_multi : (Key.t * 'a) list -> 'a list t
val of_alist_fold : (Key.t * 'a) list -> init:'b -> f:('b -> 'a -> 'b) -> 'b t
val of_alist_reduce : (Key.t * 'a) list -> f:('a -> 'a -> 'a) -> 'a t
val of_sorted_array : (Key.t * 'a) array -> 'a t Base__.Or_error.t
val of_sorted_array_unchecked : (Key.t * 'a) array -> 'a t
val of_increasing_iterator_unchecked : len:int -> f:(int -> Key.t * 'a) -> 'a t
val of_increasing_sequence : (Key.t * 'a) Base__.Sequence.t -> 'a t Base__.Or_error.t
val of_iteri : iteri:(f:(key:Key.t -> data:'v -> unit) -> unit) -> [ `Duplicate_key of Key.t | `Ok of 'v t ]
val of_tree : 'a Tree.t -> 'a t
val of_hashtbl_exn : (Key.t, 'a) Core_kernel__.Hashtbl.t -> 'a t
val gen : Key.t Core_kernel__.Quickcheck.Generator.t -> 'a Core_kernel__.Quickcheck.Generator.t -> 'a t Core_kernel__.Quickcheck.Generator.t
val invariants : 'a t -> bool
val is_empty : 'a t -> bool
val length : 'a t -> int
val add : 'a t -> key:Key.t -> data:'a -> 'a t Base__.Map_intf.Or_duplicate.t
val add_exn : 'a t -> key:Key.t -> data:'a -> 'a t
val set : 'a t -> key:Key.t -> data:'a -> 'a t
val add_multi : 'a list t -> key:Key.t -> data:'a -> 'a list t
val remove_multi : 'a list t -> Key.t -> 'a list t
val find_multi : 'a list t -> Key.t -> 'a list
val change : 'a t -> Key.t -> f:('a option -> 'a option) -> 'a t
val update : 'a t -> Key.t -> f:('a option -> 'a) -> 'a t
val find : 'a t -> Key.t -> 'a option
val find_exn : 'a t -> Key.t -> 'a
val remove : 'a t -> Key.t -> 'a t
val mem : 'a t -> Key.t -> bool
val iter_keys : 'a t -> f:(Key.t -> unit) -> unit
val iter : 'a t -> f:('a -> unit) -> unit
val iteri : 'a t -> f:(key:Key.t -> data:'a -> unit) -> unit
val iter2 : 'a t -> 'b t -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> unit) -> unit
val map : 'a t -> f:('a -> 'b) -> 'b t
val mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b) -> 'b t
val fold : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold_right : 'a t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val fold2 : 'a t -> 'b t -> init:'c -> f:(key:Key.t -> data:[ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c -> 'c) -> 'c
val filter_keys : 'a t -> f:(Key.t -> bool) -> 'a t
val filter : 'a t -> f:('a -> bool) -> 'a t
val filteri : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t
val filter_map : 'a t -> f:('a -> 'b option) -> 'b t
val filter_mapi : 'a t -> f:(key:Key.t -> data:'a -> 'b option) -> 'b t
val partition_mapi : 'a t -> f:(key:Key.t -> data:'a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partition_map : 'a t -> f:('a -> [ `Fst of 'b | `Snd of 'c ]) -> 'b t * 'c t
val partitioni_tf : 'a t -> f:(key:Key.t -> data:'a -> bool) -> 'a t * 'a t
val partition_tf : 'a t -> f:('a -> bool) -> 'a t * 'a t
val compare_direct : ('a -> 'a -> int) -> 'a t -> 'a t -> int
val equal : ('a -> 'a -> bool) -> 'a t -> 'a t -> bool
val keys : 'a t -> Key.t list
val data : 'a t -> 'a list
val to_alist : ?⁠key_order:[ `Decreasing | `Increasing ] -> 'a t -> (Key.t * 'a) list
val validate : name:(Key.t -> string) -> 'a Base__.Validate.check -> 'a t Base__.Validate.check
val merge : 'a t -> 'b t -> f:(key:Key.t -> [ `Both of 'a * 'b | `Left of 'a | `Right of 'b ] -> 'c option) -> 'c t
val symmetric_diff : 'a t -> 'a t -> data_equal:('a -> 'a -> bool) -> (Key.t, 'a) Base__.Map_intf.Symmetric_diff_element.t Base__.Sequence.t
val min_elt : 'a t -> (Key.t * 'a) option
val min_elt_exn : 'a t -> Key.t * 'a
val max_elt : 'a t -> (Key.t * 'a) option
val max_elt_exn : 'a t -> Key.t * 'a
val for_all : 'a t -> f:('a -> bool) -> bool
val for_alli : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val exists : 'a t -> f:('a -> bool) -> bool
val existsi : 'a t -> f:(key:Key.t -> data:'a -> bool) -> bool
val count : 'a t -> f:('a -> bool) -> int
val counti : 'a t -> f:(key:Key.t -> data:'a -> bool) -> int
val split : 'a t -> Key.t -> 'a t * (Key.t * 'a) option * 'a t
val append : lower_part:'a t -> upper_part:'a t -> [ `Ok of 'a t | `Overlapping_key_ranges ]
val subrange : 'a t -> lower_bound:Key.t Base__.Maybe_bound.t -> upper_bound:Key.t Base__.Maybe_bound.t -> 'a t
val fold_range_inclusive : 'a t -> min:Key.t -> max:Key.t -> init:'b -> f:(key:Key.t -> data:'a -> 'b -> 'b) -> 'b
val range_to_alist : 'a t -> min:Key.t -> max:Key.t -> (Key.t * 'a) list
val closest_key : 'a t -> [ `Greater_or_equal_to | `Greater_than | `Less_or_equal_to | `Less_than ] -> Key.t -> (Key.t * 'a) option
val nth : 'a t -> int -> (Key.t * 'a) option
val nth_exn : 'a t -> int -> Key.t * 'a
val rank : 'a t -> Key.t -> int option
val to_tree : 'a t -> 'a Tree.t
val to_sequence : ?⁠order:[ `Decreasing_key | `Increasing_key ] -> ?⁠keys_greater_or_equal_to:Key.t -> ?⁠keys_less_or_equal_to:Key.t -> 'a t -> (Key.t * 'a) Base__.Sequence.t
val obs : Key.t Core_kernel__.Quickcheck.Observer.t -> 'v Core_kernel__.Quickcheck.Observer.t -> 'v t Core_kernel__.Quickcheck.Observer.t
val shrinker : Key.t Core_kernel__.Quickcheck.Shrinker.t -> 'v Core_kernel__.Quickcheck.Shrinker.t -> 'v t Core_kernel__.Quickcheck.Shrinker.t
module Provide_of_sexp : functor (Key : sig ... end) -> sig ... end
module Provide_bin_io : functor (Key : sig ... end) -> sig ... end
module Provide_hash : functor (Key : sig ... end) -> sig ... end
val t_of_sexp : (Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a) -> Base__.Ppx_sexp_conv_lib.Sexp.t -> 'a t
val sexp_of_t : ('a -> Base__.Ppx_sexp_conv_lib.Sexp.t) -> 'a t -> Base__.Ppx_sexp_conv_lib.Sexp.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Rl/index.html b/docs/disml/Disml__/Rl/index.html new file mode 100644 index 0000000..660075d --- /dev/null +++ b/docs/disml/Disml__/Rl/index.html @@ -0,0 +1,2 @@ + +Rl (disml.Disml__.Rl)

Module Disml__.Rl

module RouteMap : module type of sig ... end

Type for mapping route -> rl.

type rl = {
limit : int;
remaining : int;
reset : int;
}

Type representing ratelimit information.

type t = (rl, Core.read_write) Async.Mvar.t RouteMap.t

Type representing the specific case of RouteMap.

val rl_of_header : Cohttp.Header.t -> rl option

Converts Cohttp header data into ratelimit information.

returns

Some of ratelimit information or None on bad headers

val default : rl

Default for type rl. Used for prepopulating routes.

val empty : t

Empty ratelimit route map.

val update : 'a RouteMap.t -> string -> f:('a option -> 'a) -> 'a RouteMap.t

Analogous to RouteMap.update.

val find : 'a RouteMap.t -> string -> 'a option

Analogous to RouteMap.find.

val find_exn : 'a RouteMap.t -> string -> 'a

Analogous to RouteMap.find_exn.

\ No newline at end of file diff --git a/docs/disml/Disml__/Role/index.html b/docs/disml/Disml__/Role/index.html new file mode 100644 index 0000000..cb91936 --- /dev/null +++ b/docs/disml/Disml__/Role/index.html @@ -0,0 +1,2 @@ + +Role (disml.Disml__.Role)

Module Disml__.Role

include module type of Disml__.Role_t
type role = {
id : Disml__.Role_id.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}

A role as Discord sends it. Only difference between this and t is the lack of the guild_id field.

val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type t = {
id : Disml__.Role_id.t;

The role's snowflake ID.

name : string;

The role's name.

colour : int;

The integer representation of the role colour.

hoist : bool;

Whether the role is hoisted. This property controls whether the role is separated on the sidebar.

position : int;

The position of the role. @everyone begins the list at 0.

permissions : int;

The integer representation of the permissions the role has.

managed : bool;

Whether the guild is managed by an integration.

mentionable : bool;

Whether the role can be mentioned.

guild_id : Disml__.Guild_id_t.t;

The guild ID this role belongs to.

}

A role object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> role -> t

Convenience method to produce t from role and a snowflake.

val delete : t -> unit Async.Deferred.Or_error.t

Deletes the role. This is permanent.

val allow_mention : t -> t Async.Deferred.Or_error.t

Edits the role to allow mentions.

val disallow_mention : t -> t Async.Deferred.Or_error.t

Opposite of allow_mention

val hoist : t -> t Async.Deferred.Or_error.t

Hoists the role. See Role.t.hoist.

val unhoist : t -> t Async.Deferred.Or_error.t

Opposite of hoist.

val set_colour : colour:int -> t -> t Async.Deferred.Or_error.t

Sets the colour of the role.

val set_name : name:string -> t -> t Async.Deferred.Or_error.t

Sets the name of the role.

\ No newline at end of file diff --git a/docs/disml/Disml__/Role_id/index.html b/docs/disml/Disml__/Role_id/index.html new file mode 100644 index 0000000..f7e3d0f --- /dev/null +++ b/docs/disml/Disml__/Role_id/index.html @@ -0,0 +1,2 @@ + +Role_id (disml.Disml__.Role_id)

Module Disml__.Role_id

type t = [
| `Role_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Role_t/index.html b/docs/disml/Disml__/Role_t/index.html new file mode 100644 index 0000000..a73af9b --- /dev/null +++ b/docs/disml/Disml__/Role_t/index.html @@ -0,0 +1,2 @@ + +Role_t (disml.Disml__.Role_t)

Module Disml__.Role_t

type role = {
id : Disml__.Role_id.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}

A role as Discord sends it. Only difference between this and t is the lack of the guild_id field.

val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type t = {
id : Disml__.Role_id.t;

The role's snowflake ID.

name : string;

The role's name.

colour : int;

The integer representation of the role colour.

hoist : bool;

Whether the role is hoisted. This property controls whether the role is separated on the sidebar.

position : int;

The position of the role. @everyone begins the list at 0.

permissions : int;

The integer representation of the permissions the role has.

managed : bool;

Whether the guild is managed by an integration.

mentionable : bool;

Whether the role can be mentioned.

guild_id : Disml__.Guild_id_t.t;

The guild ID this role belongs to.

}

A role object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> role -> t

Convenience method to produce t from role and a snowflake.

\ No newline at end of file diff --git a/docs/disml/Disml__/S/index.html b/docs/disml/Disml__/S/index.html new file mode 100644 index 0000000..f8082c6 --- /dev/null +++ b/docs/disml/Disml__/S/index.html @@ -0,0 +1,2 @@ + +S (disml.Disml__.S)

Module Disml__.S

module type HasSnowflake = sig ... end
module type ChannelImpl = sig ... end
module type GuildImpl = sig ... end
module type UserImpl = sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__/S/module-type-ChannelImpl/index.html b/docs/disml/Disml__/S/module-type-ChannelImpl/index.html new file mode 100644 index 0000000..5990efe --- /dev/null +++ b/docs/disml/Disml__/S/module-type-ChannelImpl/index.html @@ -0,0 +1,10 @@ + +ChannelImpl (disml.Disml__.S.ChannelImpl)

Module type S.ChannelImpl

type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/S/module-type-GuildImpl/index.html b/docs/disml/Disml__/S/module-type-GuildImpl/index.html new file mode 100644 index 0000000..634f483 --- /dev/null +++ b/docs/disml/Disml__/S/module-type-GuildImpl/index.html @@ -0,0 +1,2 @@ + +GuildImpl (disml.Disml__.S.GuildImpl)

Module type S.GuildImpl

type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__/S/module-type-HasSnowflake/index.html b/docs/disml/Disml__/S/module-type-HasSnowflake/index.html new file mode 100644 index 0000000..77b01ab --- /dev/null +++ b/docs/disml/Disml__/S/module-type-HasSnowflake/index.html @@ -0,0 +1,2 @@ + +HasSnowflake (disml.Disml__.S.HasSnowflake)

Module type S.HasSnowflake

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/S/module-type-UserImpl/index.html b/docs/disml/Disml__/S/module-type-UserImpl/index.html new file mode 100644 index 0000000..30ae4ba --- /dev/null +++ b/docs/disml/Disml__/S/module-type-UserImpl/index.html @@ -0,0 +1,2 @@ + +UserImpl (disml.Disml__.S.UserImpl)

Module type S.UserImpl

type t
\ No newline at end of file diff --git a/docs/disml/Disml__/Sharder/Shard/index.html b/docs/disml/Disml__/Sharder/Shard/index.html new file mode 100644 index 0000000..5a0039d --- /dev/null +++ b/docs/disml/Disml__/Sharder/Shard/index.html @@ -0,0 +1,2 @@ + +Shard (disml.Disml__.Sharder.Shard)

Module Sharder.Shard

Module representing a single shard.

type shard = {
hb_interval : Core.Time.Span.t Async.Ivar.t;

Time span between heartbeats, wrapped in an Ivar.

seq : int;

Current sequence number

session : string option;

Session id, if one exists.

pipe : Websocket_async.Frame.t Async.Pipe.Reader.t * Websocket_async.Frame.t Async.Pipe.Writer.t;

Raw frame IO pipe used for websocket communications.

ready : unit Async.Ivar.t;

A simple Ivar indicating if the shard has received READY.

url : string;

The websocket URL in use.

id : int * int;

A tuple as expected by Discord. First element is the current shard index, second element is the total shard count.

_internal : Async.Reader.t * Async.Writer.t;
}

Representation of the state of a shard.

type 'a t = {
mutable state : 'a;
}

Wrapper around an internal state, used to wrap shard.

val heartbeat : shard -> shard Async.Deferred.t

Send a heartbeat to Discord. This is handled automatically.

val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t

Set the status of the shard.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml__.Snowflake.t -> shard -> shard Async.Deferred.t

Request guild members for the shard's guild. Causes dispatch of multiple member chunk events.

val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t

Create a new shard

val shutdown_clean : shard -> unit Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Sharder/index.html b/docs/disml/Disml__/Sharder/index.html new file mode 100644 index 0000000..394a247 --- /dev/null +++ b/docs/disml/Disml__/Sharder/index.html @@ -0,0 +1,2 @@ + +Sharder (disml.Disml__.Sharder)

Module Disml__.Sharder

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t

Start the Sharder. This is called by Client.start.

module Shard : sig ... end

Module representing a single shard.

val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t

Calls Shard.set_status for each shard registered with the sharder.

val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t

Like set_status but takes a function with a shard as its parameter and json for its return.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml__.Snowflake.t -> t -> Shard.shard list Async.Deferred.t

Calls Shard.request_guild_members for each shard registered with the sharder.

val shutdown_all : t -> unit list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__/Snowflake/index.html b/docs/disml/Disml__/Snowflake/index.html new file mode 100644 index 0000000..7bb6b2c --- /dev/null +++ b/docs/disml/Disml__/Snowflake/index.html @@ -0,0 +1,2 @@ + +Snowflake (disml.Disml__.Snowflake)

Module Disml__.Snowflake

type t = Core.Int.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val time_of_t : t -> Core.Time.t

Convert a snowflake into a Core.Time.t

val timestamp : t -> int

Convert a snowflake into a Unix timestamp. Millisecond precision.

val timestamp_iso : t -> string

Convert a snowflake into an ISO8601 timestamp string. This is equivalent to calling Snowflake.time_of_t snowflake |> Time.(to_string_iso8601_basic ~zone:Zone.utc)

\ No newline at end of file diff --git a/docs/disml/Disml__/User/index.html b/docs/disml/Disml__/User/index.html new file mode 100644 index 0000000..119415a --- /dev/null +++ b/docs/disml/Disml__/User/index.html @@ -0,0 +1,2 @@ + +User (disml.Disml__.User)

Module Disml__.User

include module type of Disml__.User_t
type partial_user = {
id : Disml__.User_id_t.t;
}

A partial user. Used internally.

val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Disml__.User_id_t.t;

The user's Snowflake ID, wrapped in the convenience `User_id type.

username : string;

The username of the user.

discriminator : string;

The 4 digits, as a string, that come after the '#' in a Discord username.

avatar : string option;

The hash of the user avatar, if they have one set. See User.face to get the avatar URL.

bot : bool;

Whether the user is a bot.

}

A user object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val tag : t -> string

The user tag. Equivalent to concatenating the username and discriminator, separated by a '#'.

val mention : t -> string

The mention string for the user. Equivalent to <@USER_ID>.

val default_avatar : t -> string

The default avatar for the user.

val face : t -> string

The avatar url of the user, falling back to the default avatar.

\ No newline at end of file diff --git a/docs/disml/Disml__/User_id/index.html b/docs/disml/Disml__/User_id/index.html new file mode 100644 index 0000000..403b4e1 --- /dev/null +++ b/docs/disml/Disml__/User_id/index.html @@ -0,0 +1,2 @@ + +User_id (disml.Disml__.User_id)

Module Disml__.User_id

include module type of Disml__.User_id_t
type t = [
| `User_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.UserImpl with type t := Disml__.User_id_t.t
type t
\ No newline at end of file diff --git a/docs/disml/Disml__/User_id_t/index.html b/docs/disml/Disml__/User_id_t/index.html new file mode 100644 index 0000000..7500640 --- /dev/null +++ b/docs/disml/Disml__/User_id_t/index.html @@ -0,0 +1,2 @@ + +User_id_t (disml.Disml__.User_id_t)

Module Disml__.User_id_t

type t = [
| `User_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__/User_t/index.html b/docs/disml/Disml__/User_t/index.html new file mode 100644 index 0000000..17a3644 --- /dev/null +++ b/docs/disml/Disml__/User_t/index.html @@ -0,0 +1,2 @@ + +User_t (disml.Disml__.User_t)

Module Disml__.User_t

type partial_user = {
id : Disml__.User_id_t.t;
}

A partial user. Used internally.

val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Disml__.User_id_t.t;

The user's Snowflake ID, wrapped in the convenience `User_id type.

username : string;

The username of the user.

discriminator : string;

The 4 digits, as a string, that come after the '#' in a Discord username.

avatar : string option;

The hash of the user avatar, if they have one set. See User.face to get the avatar URL.

bot : bool;

Whether the user is a bot.

}

A user object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__/index.html b/docs/disml/Disml__/index.html new file mode 100644 index 0000000..73ec196 --- /dev/null +++ b/docs/disml/Disml__/index.html @@ -0,0 +1,2 @@ + +Disml__ (disml.Disml__)

Module Disml__

module Activity : sig ... end
module Attachment : sig ... end
module Ban : sig ... end
module Ban_t : sig ... end
module Channel : sig ... end
module Channel_id : sig ... end
module Channel_id_t : sig ... end
module Channel_t : sig ... end
module Client : sig ... end
module Client_options : sig ... end
module Disml = Disml
module Dispatch : sig ... end
module Embed : sig ... end
module Emoji : sig ... end
module Endpoints : sig ... end
module Event : sig ... end
module Event_models : sig ... end
module Guild : sig ... end
module Guild_id : sig ... end
module Guild_id_t : sig ... end
module Guild_t : sig ... end
module Http : sig ... end
module Impl : sig ... end
module Member : sig ... end
module Member_t : sig ... end
module Message : sig ... end
module Message_id : sig ... end
module Message_t : sig ... end
module Opcode : sig ... end
module Presence : sig ... end
module Reaction : sig ... end
module Reaction_t : sig ... end
module Rl : sig ... end
module Role : sig ... end
module Role_id : sig ... end
module Role_t : sig ... end
module S : sig ... end
module Sharder : sig ... end
module Snowflake : sig ... end
module User : sig ... end
module User_id : sig ... end
module User_id_t : sig ... end
module User_t : sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__Activity/index.html b/docs/disml/Disml__Activity/index.html index 641b8a4..c072f5f 100644 --- a/docs/disml/Disml__Activity/index.html +++ b/docs/disml/Disml__Activity/index.html @@ -1,2 +1,2 @@ -Disml__Activity (disml.Disml__Activity)

Module Disml__Activity

type t = {
name : string;
kind : int;
url : string;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Activity (disml.Disml__Activity)

Module Disml__Activity

type t = {
name : string;

The name of the activity.

kind : int;

0 = Playing, 1 = Streaming, 2 = Listening, 3 = Watching

url : string option;

Stream URL. Only validated for kind = 1.

}

An activity object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Attachment/index.html b/docs/disml/Disml__Attachment/index.html index 38086fe..dffa8f8 100644 --- a/docs/disml/Disml__Attachment/index.html +++ b/docs/disml/Disml__Attachment/index.html @@ -1,2 +1,2 @@ -Disml__Attachment (disml.Disml__Attachment)

Module Disml__Attachment

type t = {
id : Disml.Snowflake.t;
filename : string;
size : int;
url : string;
proxy_url : string;
height : int;
width : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Attachment (disml.Disml__Attachment)

Module Disml__Attachment

type t = {
id : Disml__.Snowflake.t;
filename : string;
size : int;
url : string;
proxy_url : string;
height : int;
width : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Ban/index.html b/docs/disml/Disml__Ban/index.html index 282fb66..c02f94e 100644 --- a/docs/disml/Disml__Ban/index.html +++ b/docs/disml/Disml__Ban/index.html @@ -1,2 +1,2 @@ -Disml__Ban (disml.Disml__Ban)

Module Disml__Ban

include module type of Disml.Ban_t
type t = {
reason : string;
user : Disml.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Ban (disml.Disml__Ban)

Module Disml__Ban

include module type of Disml__.Ban_t
type t = {
reason : string option;

The reason for the ban.

user : Disml__.User_t.t;

The banned user.

}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Ban_t/index.html b/docs/disml/Disml__Ban_t/index.html index fa62235..1192bb0 100644 --- a/docs/disml/Disml__Ban_t/index.html +++ b/docs/disml/Disml__Ban_t/index.html @@ -1,2 +1,2 @@ -Disml__Ban_t (disml.Disml__Ban_t)

Module Disml__Ban_t

type t = {
reason : string;
user : Disml.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Ban_t (disml.Disml__Ban_t)

Module Disml__Ban_t

type t = {
reason : string option;

The reason for the ban.

user : Disml__.User_t.t;

The banned user.

}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Channel/index.html b/docs/disml/Disml__Channel/index.html index d6bedf1..b5cc470 100644 --- a/docs/disml/Disml__Channel/index.html +++ b/docs/disml/Disml__Channel/index.html @@ -1,10 +1,10 @@ -Disml__Channel (disml.Disml__Channel)

Module Disml__Channel

include module type of Disml.Channel_t
exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml.Snowflake.t;
recipients : Disml.User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml.Snowflake.t;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml.Snowflake.t;
kind : int;
guild_id : Disml.Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml.Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml.User_t.t list option;
icon : string option;
owner_id : Disml.Snowflake.t option;
application_id : Disml.Snowflake.t option;
category_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml.Snowflake.t
exception Invalid_message
exception No_message_found
val say : content:string -> t -> Disml.Message_t.t Async.Deferred.Or_error.t

Simple version of send_message that only takes ~content

val send_message : ?⁠embed:Disml.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Channel.Invalid_message if one of content or embed is not set.

Examples

open Core
-open Disml
-
-let check_command (msg : Message.t) =
-    if String.is_prefix ~prefix:"!hello" msg.content then
-        let embed = { Embed.default with title = Some "Hello World!" } in
-        Channel.send_message ~embed msg.channel >>> ignore
-
-Client.message_create := check_command
val delete : t -> unit Async.Deferred.Or_error.t
val get_message : id:Disml.Snowflake.t -> t -> Disml.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml.Snowflake.t -> ?⁠limit:int -> t -> Disml.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file +Disml__Channel (disml.Disml__Channel)

Module Disml__Channel

include module type of Disml__.Channel_t
exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml__.User_id_t.t;
recipients : Disml__.User_t.t list;
}

Represents a Group channel object.

val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
}

Represents a private channel with a single user.

val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}

Represents a text channel in a guild.

val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml__.Channel_id_t.t;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}

Represents a voice channel in a guild.

val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Disml__.Channel_id_t.t;
guild_id : Disml__.Guild_id_t.t option;
position : int;
name : string;
}

Represents a guild category.

val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category

Wrapper variant for all channel types.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml__.Channel_id_t.t;
kind : int;
guild_id : Disml__.Guild_id_t.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml__.Message_id.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml__.User_t.t list option;
icon : string option;
owner_id : Disml__.User_id_t.t option;
application_id : Disml__.Snowflake.t option;
category_id : Disml__.Channel_id_t.t option;
last_pin_timestamp : string option;
}

Intermediate used internally.

val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.ChannelImpl with type t := Disml__.Channel_t.t
type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Channel_id/.dune-keep b/docs/disml/Disml__Channel_id/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Channel_id/index.html b/docs/disml/Disml__Channel_id/index.html new file mode 100644 index 0000000..70e2035 --- /dev/null +++ b/docs/disml/Disml__Channel_id/index.html @@ -0,0 +1,10 @@ + +Disml__Channel_id (disml.Disml__Channel_id)

Module Disml__Channel_id

include module type of Disml__.Channel_id_t
type t = [
| `Channel_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.ChannelImpl with type t := Disml__.Channel_id_t.t
type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Channel_id_t/.dune-keep b/docs/disml/Disml__Channel_id_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Channel_id_t/index.html b/docs/disml/Disml__Channel_id_t/index.html new file mode 100644 index 0000000..f360490 --- /dev/null +++ b/docs/disml/Disml__Channel_id_t/index.html @@ -0,0 +1,2 @@ + +Disml__Channel_id_t (disml.Disml__Channel_id_t)

Module Disml__Channel_id_t

type t = [
| `Channel_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Channel_t/index.html b/docs/disml/Disml__Channel_t/index.html index 5bf4191..66f9a4f 100644 --- a/docs/disml/Disml__Channel_t/index.html +++ b/docs/disml/Disml__Channel_t/index.html @@ -1,2 +1,2 @@ -Disml__Channel_t (disml.Disml__Channel_t)

Module Disml__Channel_t

exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml.Snowflake.t;
recipients : Disml.User_t.t list;
}
val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Disml.Snowflake.t;
last_message_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}
val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml.Snowflake.t;
category_id : Disml.Snowflake.t option;
guild_id : Disml.Snowflake.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}
val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
position : int;
name : string;
}
val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml.Snowflake.t;
kind : int;
guild_id : Disml.Snowflake.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml.Snowflake.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml.User_t.t list option;
icon : string option;
owner_id : Disml.Snowflake.t option;
application_id : Disml.Snowflake.t option;
category_id : Disml.Snowflake.t option;
last_pin_timestamp : string option;
}
val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml.Snowflake.t
\ No newline at end of file +Disml__Channel_t (disml.Disml__Channel_t)

Module Disml__Channel_t

exception Invalid_channel of Yojson.Safe.json
type group = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
icon : string option;
name : string option;
owner_id : Disml__.User_id_t.t;
recipients : Disml__.User_t.t list;
}

Represents a Group channel object.

val group_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> group
val sexp_of_group : group -> Ppx_sexp_conv_lib.Sexp.t
val group_to_yojson : group -> Yojson.Safe.json
val group_of_yojson : Yojson.Safe.json -> group Ppx_deriving_yojson_runtime.error_or
val group_of_yojson_exn : Yojson.Safe.json -> group
type dm = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
}

Represents a private channel with a single user.

val dm_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> dm
val sexp_of_dm : dm -> Ppx_sexp_conv_lib.Sexp.t
val dm_to_yojson : dm -> Yojson.Safe.json
val dm_of_yojson : Yojson.Safe.json -> dm Ppx_deriving_yojson_runtime.error_or
val dm_of_yojson_exn : Yojson.Safe.json -> dm
type guild_text = {
id : Disml__.Channel_id_t.t;
last_message_id : Disml__.Message_id.t option;
last_pin_timestamp : string option;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
topic : string option;
nsfw : bool;
slow_mode_timeout : int option;
}

Represents a text channel in a guild.

val guild_text_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_text
val sexp_of_guild_text : guild_text -> Ppx_sexp_conv_lib.Sexp.t
val guild_text_to_yojson : guild_text -> Yojson.Safe.json
val guild_text_of_yojson : Yojson.Safe.json -> guild_text Ppx_deriving_yojson_runtime.error_or
val guild_text_of_yojson_exn : Yojson.Safe.json -> guild_text
type guild_voice = {
id : Disml__.Channel_id_t.t;
category_id : Disml__.Channel_id_t.t option;
guild_id : Disml__.Guild_id_t.t option;
name : string;
position : int;
user_limit : int;
bitrate : int option;
}

Represents a voice channel in a guild.

val guild_voice_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> guild_voice
val sexp_of_guild_voice : guild_voice -> Ppx_sexp_conv_lib.Sexp.t
val guild_voice_to_yojson : guild_voice -> Yojson.Safe.json
val guild_voice_of_yojson : Yojson.Safe.json -> guild_voice Ppx_deriving_yojson_runtime.error_or
val guild_voice_of_yojson_exn : Yojson.Safe.json -> guild_voice
type category = {
id : Disml__.Channel_id_t.t;
guild_id : Disml__.Guild_id_t.t option;
position : int;
name : string;
}

Represents a guild category.

val category_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> category
val sexp_of_category : category -> Ppx_sexp_conv_lib.Sexp.t
val category_to_yojson : category -> Yojson.Safe.json
val category_of_yojson : Yojson.Safe.json -> category Ppx_deriving_yojson_runtime.error_or
val category_of_yojson_exn : Yojson.Safe.json -> category
type t =
| Group of group
| Private of dm
| GuildText of guild_text
| GuildVoice of guild_voice
| Category of category

Wrapper variant for all channel types.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
type channel_wrapper = {
id : Disml__.Channel_id_t.t;
kind : int;
guild_id : Disml__.Guild_id_t.t option;
position : int option;
name : string option;
topic : string option;
nsfw : bool option;
last_message_id : Disml__.Message_id.t option;
bitrate : int option;
user_limit : int option;
slow_mode_timeout : int option;
recipients : Disml__.User_t.t list option;
icon : string option;
owner_id : Disml__.User_id_t.t option;
application_id : Disml__.Snowflake.t option;
category_id : Disml__.Channel_id_t.t option;
last_pin_timestamp : string option;
}

Intermediate used internally.

val channel_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> channel_wrapper
val sexp_of_channel_wrapper : channel_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val channel_wrapper_to_yojson : channel_wrapper -> Yojson.Safe.json
val channel_wrapper_of_yojson : Yojson.Safe.json -> channel_wrapper Ppx_deriving_yojson_runtime.error_or
val channel_wrapper_of_yojson_exn : Yojson.Safe.json -> channel_wrapper
val unwrap_as_guild_text : channel_wrapper -> guild_text
val unwrap_as_guild_voice : channel_wrapper -> guild_voice
val unwrap_as_dm : channel_wrapper -> dm
val unwrap_as_group : channel_wrapper -> group
val unwrap_as_category : channel_wrapper -> category
val wrap : channel_wrapper -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Client/index.html b/docs/disml/Disml__Client/index.html index b959c75..31c4588 100644 --- a/docs/disml/Disml__Client/index.html +++ b/docs/disml/Disml__Client/index.html @@ -1,17 +1,17 @@ -Disml__Client (disml.Disml__Client)

Module Disml__Client

include module type of Disml.Client_options
val token : string Stdlib.ref

Token that is set when using Client.start

include module type of Disml.Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

open Core
-open Disml
-
-let check_command (msg : Message.t) =
-    if String.is_prefix ~prefix:"!ping" msg.content then
-        Message.reply msg "Pong!" >>> ignore
-
-Client.message_create := check_command
val hello : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when connecting to the gateway, most users will have no use for this.

val ready : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when Discord decides a session is invalid, much like Client.hello this is not very useful for most people.

val channel_create : (Disml.Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml.Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml.Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml.Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml.Guild_t.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml.Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml.Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml.Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a guild's integrations are updated.

val member_join : (Disml.Member_t.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml.Member_t.member_wrapper -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml.Member_t.member_update -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml.Member_t.t list -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml.Role_t.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml.Role_t.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml.Role_t.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml.Message_t.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml.Message_t.message_update -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml.Snowflake.t -> Disml.Snowflake.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_bulk_delete : (Disml.Snowflake.t list -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_bulk_remove : (Disml.Reaction_t.t list -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml.Presence.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

type t = {
sharder : Disml.Sharder.t;
}

Type of the Client, it isn't recommended to access the fields directly.

val start : ?⁠count:int -> string -> t Async.Deferred.t

Start the Client. This begins shard connections to Discord and event handlers should be registered prior to calling this.

Example

open Async
-open Disml
-
-let main () =
-    let token = "a valid bot token" in
-    Client.start ~count:5 token >>> print_endline "Client launched"
-
-let _ =
-    Scheduler.go_main ~main ()
parameter ?count

Optional amount of shards to launch. Defaults to autosharding

parameter string

The token used for authentication

returns

A deferred client object

val set_status : status:Yojson.Safe.json -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status where client.sharder is passed.

val set_status_with : f:(Disml.Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status_with where client.sharder is passed.

val request_guild_members : guild:Disml.Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.request_guild_members where client.sharder is passed.

\ No newline at end of file +Disml__Client (disml.Disml__Client)

Module Disml__Client

include module type of Disml__.Client_options
val token : string Stdlib.ref

Token that is set when using Client.start

include module type of Disml__.Dispatch

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

        open Core
+        open Disml
+
+        let check_command (msg : Message.t) =
+            if String.is_prefix ~prefix:"!ping" msg.content then
+                Message.reply msg "Pong!" >>> ignore
+        
+        Client.message_create := check_command
val ready : (Disml__.Event_models.Ready.t -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Disml__.Event_models.Resumed.t -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val channel_create : (Disml__.Event_models.ChannelCreate.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml__.Event_models.ChannelUpdate.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml__.Event_models.ChannelDelete.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Disml__.Event_models.ChannelPinsUpdate.t -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml__.Event_models.GuildCreate.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml__.Event_models.GuildUpdate.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml__.Event_models.GuildDelete.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml__.Event_models.GuildBanAdd.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml__.Event_models.GuildBanRemove.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Disml__.Event_models.GuildEmojisUpdate.t -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val member_join : (Disml__.Event_models.GuildMemberAdd.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml__.Event_models.GuildMemberRemove.t -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml__.Event_models.GuildMemberUpdate.t -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml__.Event_models.GuildMembersChunk.t -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml__.Event_models.GuildRoleCreate.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml__.Event_models.GuildRoleUpdate.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml__.Event_models.GuildRoleDelete.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml__.Event_models.MessageCreate.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml__.Event_models.MessageUpdate.t -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml__.Event_models.MessageDelete.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_delete_bulk : (Disml__.Event_models.MessageDeleteBulk.t -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml__.Event_models.ReactionAdd.t -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml__.Event_models.ReactionRemove.t -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_remove_all : (Disml__.Event_models.ReactionRemoveAll.t -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml__.Event_models.PresenceUpdate.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Disml__.Event_models.TypingStart.t -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Disml__.Event_models.UserUpdate.t -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

val webhook_update : (Disml__.Event_models.WebhookUpdate.t -> unit) Stdlib.ref

Dispatched when a webhook is updated.

val unknown : (Disml__.Event_models.Unknown.t -> unit) Stdlib.ref

Dispatched as a fallback for unknown events.

type t = {
sharder : Disml.Sharder.t;
}

Type of the Client, it isn't recommended to access the fields directly.

val start : ?⁠count:int -> string -> t Async.Deferred.t

Start the Client. This begins shard connections to Discord and event handlers should be registered prior to calling this.

Example

        open Async
+        open Disml
+
+        let main () =
+            let token = "a valid bot token" in
+            Client.start ~count:5 token >>> print_endline "Client launched"
+
+        let _ =
+            Scheduler.go_main ~main ()
parameter ?count

Optional amount of shards to launch. Defaults to autosharding

parameter string

The token used for authentication

returns

A deferred client object

val set_status : status:Yojson.Safe.json -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status where client.sharder is passed.

val set_status_with : f:(Disml.Sharder.Shard.shard -> Yojson.Safe.json) -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.set_status_with where client.sharder is passed.

val request_guild_members : guild:Disml__.Snowflake.t -> ?⁠query:string -> ?⁠limit:int -> t -> Disml.Sharder.Shard.shard list Async.Deferred.t

Same as Sharder.request_guild_members where client.sharder is passed.

\ No newline at end of file diff --git a/docs/disml/Disml__Dispatch/index.html b/docs/disml/Disml__Dispatch/index.html index 2b401ca..c14d840 100644 --- a/docs/disml/Disml__Dispatch/index.html +++ b/docs/disml/Disml__Dispatch/index.html @@ -1,9 +1,9 @@ -Disml__Dispatch (disml.Disml__Dispatch)

Module Disml__Dispatch

Used to store dispatch callbacks. Each event can only have one callback registered at a time. These should be accessed through their re-export in Client.

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

open Core
-open Disml
-
-let check_command (msg : Message.t) =
-    if String.is_prefix ~prefix:"!ping" msg.content then
-        Message.reply msg "Pong!" >>> ignore
-
-Client.message_create := check_command
val hello : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when connecting to the gateway, most users will have no use for this.

val ready : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val invalid_session : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when Discord decides a session is invalid, much like Client.hello this is not very useful for most people.

val channel_create : (Disml.Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml.Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml.Channel_t.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml.Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml.Guild_t.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml.Guild_t.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml.Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml.Ban_t.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val integrations_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a guild's integrations are updated.

val member_join : (Disml.Member_t.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml.Member_t.member_wrapper -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml.Member_t.member_update -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml.Member_t.t list -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml.Role_t.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml.Role_t.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml.Role_t.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml.Message_t.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml.Message_t.message_update -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml.Snowflake.t -> Disml.Snowflake.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_bulk_delete : (Disml.Snowflake.t list -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml.Reaction_t.reaction_event -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_bulk_remove : (Disml.Reaction_t.t list -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml.Presence.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Yojson.Safe.json -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

\ No newline at end of file +Disml__Dispatch (disml.Disml__Dispatch)

Module Disml__Dispatch

Used to store dispatch callbacks. Each event can only have one callback registered at a time. These should be accessed through their re-export in Client.

Examples

Client.ready := (fun _ -> print_endline "Shard is Ready!")

Client.guild_create := (fun guild -> print_endline guild.name)

        open Core
+        open Disml
+
+        let check_command (msg : Message.t) =
+            if String.is_prefix ~prefix:"!ping" msg.content then
+                Message.reply msg "Pong!" >>> ignore
+        
+        Client.message_create := check_command
val ready : (Disml__.Event_models.Ready.t -> unit) Stdlib.ref

Dispatched when each shard receives READY from discord after identifying on the gateway. Other event dispatch is received after this.

val resumed : (Disml__.Event_models.Resumed.t -> unit) Stdlib.ref

Dispatched when successfully reconnecting to the gateway.

val channel_create : (Disml__.Event_models.ChannelCreate.t -> unit) Stdlib.ref

Dispatched when a channel is created which is visible to the bot.

val channel_update : (Disml__.Event_models.ChannelUpdate.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is changed.

val channel_delete : (Disml__.Event_models.ChannelDelete.t -> unit) Stdlib.ref

Dispatched when a channel visible to the bot is deleted.

val channel_pins_update : (Disml__.Event_models.ChannelPinsUpdate.t -> unit) Stdlib.ref

Dispatched when messages are pinned or unpinned from a a channel.

val guild_create : (Disml__.Event_models.GuildCreate.t -> unit) Stdlib.ref

Dispatched when the bot joins a guild, and during startup.

val guild_update : (Disml__.Event_models.GuildUpdate.t -> unit) Stdlib.ref

Dispatched when a guild the bot is in is edited.

val guild_delete : (Disml__.Event_models.GuildDelete.t -> unit) Stdlib.ref

Dispatched when the bot is removed from a guild.

val member_ban : (Disml__.Event_models.GuildBanAdd.t -> unit) Stdlib.ref

Dispatched when a member is banned.

val member_unban : (Disml__.Event_models.GuildBanRemove.t -> unit) Stdlib.ref

Dispatched when a member is unbanned.

val guild_emojis_update : (Disml__.Event_models.GuildEmojisUpdate.t -> unit) Stdlib.ref

Dispatched when emojis are added or removed from a guild.

val member_join : (Disml__.Event_models.GuildMemberAdd.t -> unit) Stdlib.ref

Dispatched when a member joins a guild.

val member_leave : (Disml__.Event_models.GuildMemberRemove.t -> unit) Stdlib.ref

Dispatched when a member leaves a guild. Is Dispatched alongside Client.member_ban when a user is banned.

val member_update : (Disml__.Event_models.GuildMemberUpdate.t -> unit) Stdlib.ref

Dispatched when a member object is updated.

val members_chunk : (Disml__.Event_models.GuildMembersChunk.t -> unit) Stdlib.ref

Dispatched when requesting guild members through Client.request_guild_members

val role_create : (Disml__.Event_models.GuildRoleCreate.t -> unit) Stdlib.ref

Dispatched when a role is created.

val role_update : (Disml__.Event_models.GuildRoleUpdate.t -> unit) Stdlib.ref

Dispatched when a role is edited.

val role_delete : (Disml__.Event_models.GuildRoleDelete.t -> unit) Stdlib.ref

Dispatched when a role is deleted.

val message_create : (Disml__.Event_models.MessageCreate.t -> unit) Stdlib.ref

Dispatched when a message is sent.

val message_update : (Disml__.Event_models.MessageUpdate.t -> unit) Stdlib.ref

Dispatched when a message is edited. This does not necessarily mean the content changed.

val message_delete : (Disml__.Event_models.MessageDelete.t -> unit) Stdlib.ref

Dispatched when a message is deleted.

val message_delete_bulk : (Disml__.Event_models.MessageDeleteBulk.t -> unit) Stdlib.ref

Dispatched when messages are bulk deleted.

val reaction_add : (Disml__.Event_models.ReactionAdd.t -> unit) Stdlib.ref

Dispatched when a rection is added to a message.

val reaction_remove : (Disml__.Event_models.ReactionRemove.t -> unit) Stdlib.ref

Dispatched when a reaction is removed from a message.

val reaction_remove_all : (Disml__.Event_models.ReactionRemoveAll.t -> unit) Stdlib.ref

Dispatched when all reactions are cleared from a message.

val presence_update : (Disml__.Event_models.PresenceUpdate.t -> unit) Stdlib.ref

Dispatched when a user updates their presence.

val typing_start : (Disml__.Event_models.TypingStart.t -> unit) Stdlib.ref

Dispatched when a typing indicator is displayed.

val user_update : (Disml__.Event_models.UserUpdate.t -> unit) Stdlib.ref

Dispatched when the current user is updated. You most likely want Client.member_update or Client.presence_update instead.

val webhook_update : (Disml__.Event_models.WebhookUpdate.t -> unit) Stdlib.ref

Dispatched when a webhook is updated.

val unknown : (Disml__.Event_models.Unknown.t -> unit) Stdlib.ref

Dispatched as a fallback for unknown events.

\ No newline at end of file diff --git a/docs/disml/Disml__Embed/index.html b/docs/disml/Disml__Embed/index.html index 9a515c7..e712acc 100644 --- a/docs/disml/Disml__Embed/index.html +++ b/docs/disml/Disml__Embed/index.html @@ -1,2 +1,2 @@ -Disml__Embed (disml.Disml__Embed)

Module Disml__Embed

type image = {
url : string option;
proxy_url : string option;
height : int option;
width : int option;
}
val image_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> image
val sexp_of_image : image -> Ppx_sexp_conv_lib.Sexp.t
val image_to_yojson : image -> Yojson.Safe.json
val image_of_yojson : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val image_of_yojson_exn : Yojson.Safe.json -> image
type video = {
url : string option;
height : int option;
width : int option;
}
val video_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> video
val sexp_of_video : video -> Ppx_sexp_conv_lib.Sexp.t
val video_to_yojson : video -> Yojson.Safe.json
val video_of_yojson : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val video_of_yojson_exn : Yojson.Safe.json -> video
type provider = {
name : string option;
url : string option;
}
val provider_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> provider
val sexp_of_provider : provider -> Ppx_sexp_conv_lib.Sexp.t
val provider_to_yojson : provider -> Yojson.Safe.json
val provider_of_yojson : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val provider_of_yojson_exn : Yojson.Safe.json -> provider
type author = {
name : string option;
url : string option;
icon_url : string option;
proxy_icon_url : string option;
}
val author_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> author
val sexp_of_author : author -> Ppx_sexp_conv_lib.Sexp.t
val author_to_yojson : author -> Yojson.Safe.json
val author_of_yojson : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val author_of_yojson_exn : Yojson.Safe.json -> author
type field = {
name : string;
value : string;
inline : bool;
}
val field_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> field
val sexp_of_field : field -> Ppx_sexp_conv_lib.Sexp.t
val field_to_yojson : field -> Yojson.Safe.json
val field_of_yojson : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val field_of_yojson_exn : Yojson.Safe.json -> field
type t = {
title : string option;
kind : string option;
description : string option;
url : string option;
timestamp : string option;
colour : int option;
footer : footer option;
image : image option;
thumbnail : image option;
video : video option;
provider : provider option;
author : author option;
fields : field list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val default : t
val default_image : image
val default_video : video
val default_provider : provider
val default_author : author
val title : string -> t -> t
val description : string -> t -> t
val url : string -> t -> t
val timestamp : string -> t -> t
val colour : int -> t -> t
val color : int -> t -> t
val image : string -> t -> t
val thumbnail : string -> t -> t
val author : (author -> author) -> t -> t
val field : (string * string * bool) -> t -> t
val fields : (string * string * bool) list -> t -> t
val footer_text : string -> footer -> footer
val author_name : string -> author -> author
val author_url : string -> author -> author
val author_icon : string -> author -> author
\ No newline at end of file +Disml__Embed (disml.Disml__Embed)

Module Disml__Embed

A footer object belonging to an embed.

type image = {
url : string option;
proxy_url : string option;
height : int option;
width : int option;
}

An image object belonging to an embed.

val image_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> image
val sexp_of_image : image -> Ppx_sexp_conv_lib.Sexp.t
val image_to_yojson : image -> Yojson.Safe.json
val image_of_yojson : Yojson.Safe.json -> image Ppx_deriving_yojson_runtime.error_or
val image_of_yojson_exn : Yojson.Safe.json -> image
type video = {
url : string option;
height : int option;
width : int option;
}

A video object belonging to an embed.

val video_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> video
val sexp_of_video : video -> Ppx_sexp_conv_lib.Sexp.t
val video_to_yojson : video -> Yojson.Safe.json
val video_of_yojson : Yojson.Safe.json -> video Ppx_deriving_yojson_runtime.error_or
val video_of_yojson_exn : Yojson.Safe.json -> video
type provider = {
name : string option;
url : string option;
}

A provider object belonging to an embed.

val provider_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> provider
val sexp_of_provider : provider -> Ppx_sexp_conv_lib.Sexp.t
val provider_to_yojson : provider -> Yojson.Safe.json
val provider_of_yojson : Yojson.Safe.json -> provider Ppx_deriving_yojson_runtime.error_or
val provider_of_yojson_exn : Yojson.Safe.json -> provider
type author = {
name : string option;
url : string option;
icon_url : string option;
proxy_icon_url : string option;
}

An author object belonging to an embed.

val author_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> author
val sexp_of_author : author -> Ppx_sexp_conv_lib.Sexp.t
val author_to_yojson : author -> Yojson.Safe.json
val author_of_yojson : Yojson.Safe.json -> author Ppx_deriving_yojson_runtime.error_or
val author_of_yojson_exn : Yojson.Safe.json -> author
type field = {
name : string;
value : string;
inline : bool;
}

A field object belonging to an embed.

val field_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> field
val sexp_of_field : field -> Ppx_sexp_conv_lib.Sexp.t
val field_to_yojson : field -> Yojson.Safe.json
val field_of_yojson : Yojson.Safe.json -> field Ppx_deriving_yojson_runtime.error_or
val field_of_yojson_exn : Yojson.Safe.json -> field
type t = {
title : string option;
kind : string option;
description : string option;
url : string option;
timestamp : string option;
colour : int option;
footer : footer option;
image : image option;
thumbnail : image option;
video : video option;
provider : provider option;
author : author option;
fields : field list;
}

An embed object. See this embed visualiser if you need help understanding each component.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val default : t

An embed where all values are empty.

A footer where all values are empty.

val default_image : image

An image where all values are empty.

val default_video : video

A video where all values are empty.

val default_provider : provider

A provider where all values are empty.

val default_author : author

An author where all values are empty.

val title : string -> t -> t

Set the title of an embed.

val description : string -> t -> t

Set the description of an embed.

val url : string -> t -> t

Set the URL of an embed.

val timestamp : string -> t -> t

Set the timestamp of an embed.

val colour : int -> t -> t

Set the colour of an embed.

val color : int -> t -> t

Identical to colour but with US English spelling.

Set the footer of an embed. The function passes default_footer and must return a footer.

val image : string -> t -> t

Set the image URL of an embed.

val thumbnail : string -> t -> t

Set the thumbnail URL of an embed.

val author : (author -> author) -> t -> t

Set the author of an embed. The function passes default_author and must return an author.

val field : (string * string * bool) -> t -> t

Add a field to an embed. Takes a tuple in (name, value, inline) order. Fields added this way will appear in reverse order in the embed.

val fields : (string * string * bool) list -> t -> t

Set the fields of an embed. Similar to field, but because a complete list is passed, fields preserve order.

val footer_text : string -> footer -> footer

Set the footer text. Typically used in the closure passed to footer.

Set the footer icon URL. Typically used in the closure passed to footer.

val author_name : string -> author -> author

Set the author name. Typically used in the closure passed to author.

val author_url : string -> author -> author

Set the author URL. Typically used in the closure passed to author.

val author_icon : string -> author -> author

Set the author icon URL. Typically used in the closure passed to author.

\ No newline at end of file diff --git a/docs/disml/Disml__Emoji/index.html b/docs/disml/Disml__Emoji/index.html index 9a766b9..181f829 100644 --- a/docs/disml/Disml__Emoji/index.html +++ b/docs/disml/Disml__Emoji/index.html @@ -1,2 +1,2 @@ -Disml__Emoji (disml.Disml__Emoji)

Module Disml__Emoji

type partial_emoji = {
id : Disml.Snowflake.t option;
name : string;
}
val partial_emoji_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_emoji
val sexp_of_partial_emoji : partial_emoji -> Ppx_sexp_conv_lib.Sexp.t
val partial_emoji_to_yojson : partial_emoji -> Yojson.Safe.json
val partial_emoji_of_yojson : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val partial_emoji_of_yojson_exn : Yojson.Safe.json -> partial_emoji
type t = {
id : Disml.Snowflake.t option;
name : string;
roles : Disml.Snowflake.t list;
user : Disml.User_t.t option;
require_colons : bool option;
managed : bool option;
animated : bool option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Emoji (disml.Disml__Emoji)

Module Disml__Emoji

type partial_emoji = {
id : Disml__.Snowflake.t option;
name : string;
}

A partial emoji, used internally.

val partial_emoji_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_emoji
val sexp_of_partial_emoji : partial_emoji -> Ppx_sexp_conv_lib.Sexp.t
val partial_emoji_to_yojson : partial_emoji -> Yojson.Safe.json
val partial_emoji_of_yojson : Yojson.Safe.json -> partial_emoji Ppx_deriving_yojson_runtime.error_or
val partial_emoji_of_yojson_exn : Yojson.Safe.json -> partial_emoji
type t = {
id : Disml__.Snowflake.t option;

Snowflake ID of the emoji. Only exists for custom emojis.

name : string;

Name of the emoji. Either the emoji custom name or a unicode character.

roles : Disml__.Role_id.t list;

List of roles required to use this emoji. Is only non-empty on some integration emojis.

user : Disml__.User_t.t option;

User object of the person who uploaded the emoji. Only exists for custom emojis.

require_colons : bool;

Whether the emoji must be wrapped in colons. Is false for unicode emojis.

managed : bool;

Whether the emoji is managed by an integration.

animated : bool;

Whether the emoji is animated.

}

A full emoji object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event/index.html b/docs/disml/Disml__Event/index.html index ea15cf9..27e4c06 100644 --- a/docs/disml/Disml__Event/index.html +++ b/docs/disml/Disml__Event/index.html @@ -1,2 +1,2 @@ -Disml__Event (disml.Disml__Event)

Module Disml__Event

Barebones of event dispatching. Most users will have no reason to look here.

exception Invalid_event of string

Used internally when received an unknown event. Is caught and logged.

type t =
| HELLO of Yojson.Safe.json
| READY of Yojson.Safe.json
| RESUMED of Yojson.Safe.json
| INVALID_SESSION of Yojson.Safe.json
| CHANNEL_CREATE of Disml.Channel_t.t
| CHANNEL_UPDATE of Disml.Channel_t.t
| CHANNEL_DELETE of Disml.Channel_t.t
| CHANNEL_PINS_UPDATE of Yojson.Safe.json
| GUILD_CREATE of Disml.Guild_t.t
| GUILD_UPDATE of Disml.Guild_t.t
| GUILD_DELETE of Disml.Guild_t.t
| GUILD_BAN_ADD of Disml.Ban_t.t
| GUILD_BAN_REMOVE of Disml.Ban_t.t
| GUILD_EMOJIS_UPDATE of Yojson.Safe.json
| GUILD_INTEGRATIONS_UPDATE of Yojson.Safe.json
| GUILD_MEMBER_ADD of Disml.Member_t.t
| GUILD_MEMBER_REMOVE of Disml.Member_t.member_wrapper
| GUILD_MEMBER_UPDATE of Disml.Member_t.member_update
| GUILD_MEMBERS_CHUNK of Disml.Member_t.t list
| GUILD_ROLE_CREATE of Disml.Role_t.t
| GUILD_ROLE_UPDATE of Disml.Role_t.t
| GUILD_ROLE_DELETE of Disml.Role_t.t
| MESSAGE_CREATE of Disml.Message_t.t
| MESSAGE_UPDATE of Disml.Message_t.message_update
| MESSAGE_DELETE of Disml.Snowflake.t * Disml.Snowflake.t
| MESSAGE_BULK_DELETE of Disml.Snowflake.t list
| MESSAGE_REACTION_ADD of Disml.Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE of Disml.Reaction_t.reaction_event
| MESSAGE_REACTION_REMOVE_ALL of Disml.Reaction_t.t list
| PRESENCE_UPDATE of Disml.Presence.t
| TYPING_START of Yojson.Safe.json
| USER_UPDATE of Yojson.Safe.json
| VOICE_STATE_UPDATE of Yojson.Safe.json
| VOICE_SERVER_UPDATE of Yojson.Safe.json
| WEBHOOKS_UPDATE of Yojson.Safe.json

Event dispatch type wrapper. Used internally.

val event_of_yojson : contents:Yojson.Safe.json -> string -> t

Used to convert an event string and payload into a t wrapper type.

val dispatch : t -> unit

Sends the event to the registered handler.

val handle_event : ev:string -> Yojson.Safe.json -> unit

Wrapper to other functions. This is called from the shards.

\ No newline at end of file +Disml__Event (disml.Disml__Event)

Module Disml__Event

Barebones of event dispatching. Most users will have no reason to look here.

type t =
| READY of Disml__.Event_models.Ready.t
| RESUMED of Disml__.Event_models.Resumed.t
| CHANNEL_CREATE of Disml__.Event_models.ChannelCreate.t
| CHANNEL_UPDATE of Disml__.Event_models.ChannelUpdate.t
| CHANNEL_DELETE of Disml__.Event_models.ChannelDelete.t
| CHANNEL_PINS_UPDATE of Disml__.Event_models.ChannelPinsUpdate.t
| GUILD_CREATE of Disml__.Event_models.GuildCreate.t
| GUILD_UPDATE of Disml__.Event_models.GuildUpdate.t
| GUILD_DELETE of Disml__.Event_models.GuildDelete.t
| GUILD_BAN_ADD of Disml__.Event_models.GuildBanAdd.t
| GUILD_BAN_REMOVE of Disml__.Event_models.GuildBanRemove.t
| GUILD_EMOJIS_UPDATE of Disml__.Event_models.GuildEmojisUpdate.t
| GUILD_MEMBER_ADD of Disml__.Event_models.GuildMemberAdd.t
| GUILD_MEMBER_REMOVE of Disml__.Event_models.GuildMemberRemove.t
| GUILD_MEMBER_UPDATE of Disml__.Event_models.GuildMemberUpdate.t
| GUILD_MEMBERS_CHUNK of Disml__.Event_models.GuildMembersChunk.t
| GUILD_ROLE_CREATE of Disml__.Event_models.GuildRoleCreate.t
| GUILD_ROLE_UPDATE of Disml__.Event_models.GuildRoleUpdate.t
| GUILD_ROLE_DELETE of Disml__.Event_models.GuildRoleDelete.t
| MESSAGE_CREATE of Disml__.Event_models.MessageCreate.t
| MESSAGE_UPDATE of Disml__.Event_models.MessageUpdate.t
| MESSAGE_DELETE of Disml__.Event_models.MessageDelete.t
| MESSAGE_DELETE_BULK of Disml__.Event_models.MessageDeleteBulk.t
| REACTION_ADD of Disml__.Event_models.ReactionAdd.t
| REACTION_REMOVE of Disml__.Event_models.ReactionRemove.t
| REACTION_REMOVE_ALL of Disml__.Event_models.ReactionRemoveAll.t
| PRESENCE_UPDATE of Disml__.Event_models.PresenceUpdate.t
| TYPING_START of Disml__.Event_models.TypingStart.t
| USER_UPDATE of Disml__.Event_models.UserUpdate.t
| WEBHOOK_UPDATE of Disml__.Event_models.WebhookUpdate.t
| UNKNOWN of Disml__.Event_models.Unknown.t

Event dispatch type wrapper. Used internally.

val event_of_yojson : contents:Yojson.Safe.json -> string -> t

Used to convert an event string and payload into a t wrapper type.

val dispatch : t -> unit

Sends the event to the registered handler.

val handle_event : ev:string -> Yojson.Safe.json -> unit

Wrapper to other functions. This is called from the shards.

\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/.dune-keep b/docs/disml/Disml__Event_models/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Event_models/ChannelCreate/index.html b/docs/disml/Disml__Event_models/ChannelCreate/index.html new file mode 100644 index 0000000..f1ce649 --- /dev/null +++ b/docs/disml/Disml__Event_models/ChannelCreate/index.html @@ -0,0 +1,2 @@ + +ChannelCreate (disml.Disml__Event_models.ChannelCreate)

Module Disml__Event_models.ChannelCreate

type t = {
channel : Disml__.Channel_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ChannelDelete/index.html b/docs/disml/Disml__Event_models/ChannelDelete/index.html new file mode 100644 index 0000000..c3874c0 --- /dev/null +++ b/docs/disml/Disml__Event_models/ChannelDelete/index.html @@ -0,0 +1,2 @@ + +ChannelDelete (disml.Disml__Event_models.ChannelDelete)

Module Disml__Event_models.ChannelDelete

type t = {
channel : Disml__.Channel_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ChannelPinsUpdate/index.html b/docs/disml/Disml__Event_models/ChannelPinsUpdate/index.html new file mode 100644 index 0000000..1464a4c --- /dev/null +++ b/docs/disml/Disml__Event_models/ChannelPinsUpdate/index.html @@ -0,0 +1,2 @@ + +ChannelPinsUpdate (disml.Disml__Event_models.ChannelPinsUpdate)

Module Disml__Event_models.ChannelPinsUpdate

type t = {
channel_id : Disml__.Channel_id.t;
last_pin_timestamp : string option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ChannelRecipientAdd/index.html b/docs/disml/Disml__Event_models/ChannelRecipientAdd/index.html new file mode 100644 index 0000000..2a3e194 --- /dev/null +++ b/docs/disml/Disml__Event_models/ChannelRecipientAdd/index.html @@ -0,0 +1,2 @@ + +ChannelRecipientAdd (disml.Disml__Event_models.ChannelRecipientAdd)

Module Disml__Event_models.ChannelRecipientAdd

type t = {
channel_id : Disml__.Channel_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ChannelRecipientRemove/index.html b/docs/disml/Disml__Event_models/ChannelRecipientRemove/index.html new file mode 100644 index 0000000..beeeda8 --- /dev/null +++ b/docs/disml/Disml__Event_models/ChannelRecipientRemove/index.html @@ -0,0 +1,2 @@ + +ChannelRecipientRemove (disml.Disml__Event_models.ChannelRecipientRemove)

Module Disml__Event_models.ChannelRecipientRemove

type t = {
channel_id : Disml__.Channel_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ChannelUpdate/index.html b/docs/disml/Disml__Event_models/ChannelUpdate/index.html new file mode 100644 index 0000000..4d3fd32 --- /dev/null +++ b/docs/disml/Disml__Event_models/ChannelUpdate/index.html @@ -0,0 +1,2 @@ + +ChannelUpdate (disml.Disml__Event_models.ChannelUpdate)

Module Disml__Event_models.ChannelUpdate

type t = {
channel : Disml__.Channel_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildBanAdd/index.html b/docs/disml/Disml__Event_models/GuildBanAdd/index.html new file mode 100644 index 0000000..8e01af8 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildBanAdd/index.html @@ -0,0 +1,2 @@ + +GuildBanAdd (disml.Disml__Event_models.GuildBanAdd)

Module Disml__Event_models.GuildBanAdd

type t = {
guild_id : Disml__.Guild_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildBanRemove/index.html b/docs/disml/Disml__Event_models/GuildBanRemove/index.html new file mode 100644 index 0000000..6470290 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildBanRemove/index.html @@ -0,0 +1,2 @@ + +GuildBanRemove (disml.Disml__Event_models.GuildBanRemove)

Module Disml__Event_models.GuildBanRemove

type t = {
guild_id : Disml__.Guild_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildCreate/index.html b/docs/disml/Disml__Event_models/GuildCreate/index.html new file mode 100644 index 0000000..1ae2f52 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildCreate/index.html @@ -0,0 +1,2 @@ + +GuildCreate (disml.Disml__Event_models.GuildCreate)

Module Disml__Event_models.GuildCreate

type t = {
guild : Disml__.Guild_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildDelete/index.html b/docs/disml/Disml__Event_models/GuildDelete/index.html new file mode 100644 index 0000000..e86ede9 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildDelete/index.html @@ -0,0 +1,2 @@ + +GuildDelete (disml.Disml__Event_models.GuildDelete)

Module Disml__Event_models.GuildDelete

type t = {
id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildEmojisUpdate/index.html b/docs/disml/Disml__Event_models/GuildEmojisUpdate/index.html new file mode 100644 index 0000000..7819349 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildEmojisUpdate/index.html @@ -0,0 +1,2 @@ + +GuildEmojisUpdate (disml.Disml__Event_models.GuildEmojisUpdate)

Module Disml__Event_models.GuildEmojisUpdate

type t = {
emojis : Disml__.Emoji.t list;
guild_id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildMemberAdd/index.html b/docs/disml/Disml__Event_models/GuildMemberAdd/index.html new file mode 100644 index 0000000..e3908ca --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildMemberAdd/index.html @@ -0,0 +1,2 @@ + +GuildMemberAdd (disml.Disml__Event_models.GuildMemberAdd)

Module Disml__Event_models.GuildMemberAdd

include Disml__.Member_t
type partial_member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml__.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml__.Guild_id_t.t;
user : Disml__.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml__.Guild_id_t.t;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;

The nickname of the member, if they have one set.

roles : Disml__.Role_id.t list;

The roles the member has.

joined_at : string;

An ISO8601 timestamp of when the user joined.

deaf : bool;

Whether the user is deafened.

mute : bool;

Whether the user is muted.

user : Disml__.User_t.t;

The underlying user object for the member.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which the member exists.

}

A member object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> member -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildMemberRemove/index.html b/docs/disml/Disml__Event_models/GuildMemberRemove/index.html new file mode 100644 index 0000000..cb0ba8e --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildMemberRemove/index.html @@ -0,0 +1,2 @@ + +GuildMemberRemove (disml.Disml__Event_models.GuildMemberRemove)

Module Disml__Event_models.GuildMemberRemove

type t = {
guild_id : Disml__.Guild_id.t;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildMemberUpdate/index.html b/docs/disml/Disml__Event_models/GuildMemberUpdate/index.html new file mode 100644 index 0000000..48bb240 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildMemberUpdate/index.html @@ -0,0 +1,2 @@ + +GuildMemberUpdate (disml.Disml__Event_models.GuildMemberUpdate)

Module Disml__Event_models.GuildMemberUpdate

type t = {
guild_id : Disml__.Guild_id.t;
nick : string option;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildMembersChunk/index.html b/docs/disml/Disml__Event_models/GuildMembersChunk/index.html new file mode 100644 index 0000000..c309f93 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildMembersChunk/index.html @@ -0,0 +1,2 @@ + +GuildMembersChunk (disml.Disml__Event_models.GuildMembersChunk)

Module Disml__Event_models.GuildMembersChunk

type t = {
guild_id : Disml__.Guild_id.t;
members : (Disml__.Snowflake.t * Disml__.Member_t.t) list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildRoleCreate/index.html b/docs/disml/Disml__Event_models/GuildRoleCreate/index.html new file mode 100644 index 0000000..5e56420 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildRoleCreate/index.html @@ -0,0 +1,2 @@ + +GuildRoleCreate (disml.Disml__Event_models.GuildRoleCreate)

Module Disml__Event_models.GuildRoleCreate

type t = {
guild_id : Disml__.Guild_id.t;
role : Disml__.Role_t.role;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildRoleDelete/index.html b/docs/disml/Disml__Event_models/GuildRoleDelete/index.html new file mode 100644 index 0000000..4a721e5 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildRoleDelete/index.html @@ -0,0 +1,2 @@ + +GuildRoleDelete (disml.Disml__Event_models.GuildRoleDelete)

Module Disml__Event_models.GuildRoleDelete

type t = {
guild_id : Disml__.Guild_id.t;
role_id : Disml__.Role_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildRoleUpdate/index.html b/docs/disml/Disml__Event_models/GuildRoleUpdate/index.html new file mode 100644 index 0000000..ca12fec --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildRoleUpdate/index.html @@ -0,0 +1,2 @@ + +GuildRoleUpdate (disml.Disml__Event_models.GuildRoleUpdate)

Module Disml__Event_models.GuildRoleUpdate

type t = {
guild_id : Disml__.Guild_id.t;
role : Disml__.Role_t.role;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildUnavailable/index.html b/docs/disml/Disml__Event_models/GuildUnavailable/index.html new file mode 100644 index 0000000..ac65661 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildUnavailable/index.html @@ -0,0 +1,2 @@ + +GuildUnavailable (disml.Disml__Event_models.GuildUnavailable)

Module Disml__Event_models.GuildUnavailable

type t = {
guild_id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/GuildUpdate/index.html b/docs/disml/Disml__Event_models/GuildUpdate/index.html new file mode 100644 index 0000000..27eb778 --- /dev/null +++ b/docs/disml/Disml__Event_models/GuildUpdate/index.html @@ -0,0 +1,2 @@ + +GuildUpdate (disml.Disml__Event_models.GuildUpdate)

Module Disml__Event_models.GuildUpdate

type t = {
guild : Disml__.Guild_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/MessageCreate/index.html b/docs/disml/Disml__Event_models/MessageCreate/index.html new file mode 100644 index 0000000..17aa42c --- /dev/null +++ b/docs/disml/Disml__Event_models/MessageCreate/index.html @@ -0,0 +1,2 @@ + +MessageCreate (disml.Disml__Event_models.MessageCreate)

Module Disml__Event_models.MessageCreate

type t = {
message : Disml__.Message_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/MessageDelete/index.html b/docs/disml/Disml__Event_models/MessageDelete/index.html new file mode 100644 index 0000000..8044d8d --- /dev/null +++ b/docs/disml/Disml__Event_models/MessageDelete/index.html @@ -0,0 +1,2 @@ + +MessageDelete (disml.Disml__Event_models.MessageDelete)

Module Disml__Event_models.MessageDelete

type t = {
id : Disml__.Message_id.t;
channel_id : Disml__.Channel_id.t;
guild_id : Disml__.Guild_id.t option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/MessageDeleteBulk/index.html b/docs/disml/Disml__Event_models/MessageDeleteBulk/index.html new file mode 100644 index 0000000..35c02ba --- /dev/null +++ b/docs/disml/Disml__Event_models/MessageDeleteBulk/index.html @@ -0,0 +1,2 @@ + +MessageDeleteBulk (disml.Disml__Event_models.MessageDeleteBulk)

Module Disml__Event_models.MessageDeleteBulk

type t = {
guild_id : Disml__.Guild_id.t option;
channel_id : Disml__.Channel_id.t;
ids : Disml__.Message_id.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/MessageUpdate/index.html b/docs/disml/Disml__Event_models/MessageUpdate/index.html new file mode 100644 index 0000000..eb952ff --- /dev/null +++ b/docs/disml/Disml__Event_models/MessageUpdate/index.html @@ -0,0 +1,2 @@ + +MessageUpdate (disml.Disml__Event_models.MessageUpdate)

Module Disml__Event_models.MessageUpdate

type t = {
id : Disml__.Message_id.t;
author : Disml__.User_t.t option;
channel_id : Disml__.Channel_id.t;
member : Disml__.Member_t.partial_member option;
guild_id : Disml__.Guild_id.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Disml__.User_id.t list;
role_mentions : Disml__.Role_id.t list;
attachments : Disml__.Attachment.t list;
embeds : Disml__.Embed.t list;
reactions : Disml__.Snowflake.t list;
nonce : Disml__.Snowflake.t option;
pinned : bool option;
webhook_id : Disml__.Snowflake.t option;
kind : int option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/PresenceUpdate/index.html b/docs/disml/Disml__Event_models/PresenceUpdate/index.html new file mode 100644 index 0000000..8165512 --- /dev/null +++ b/docs/disml/Disml__Event_models/PresenceUpdate/index.html @@ -0,0 +1,2 @@ + +PresenceUpdate (disml.Disml__Event_models.PresenceUpdate)

Module Disml__Event_models.PresenceUpdate

include Disml__.Presence
type t = {
user : Disml__.User_t.partial_user;

A partial user that this presence belongs to.

roles : Disml__.Role_id.t list;

A list of roles that the user has.

game : Disml__.Activity.t option;

The current activity of the user, if any.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which this presence exists.

status : string;

One of online, idle, offline, or dnd.

activities : Disml__.Activity.t list;

A list of all of the user's current activities.

}

A user presence.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ReactionAdd/index.html b/docs/disml/Disml__Event_models/ReactionAdd/index.html new file mode 100644 index 0000000..664659b --- /dev/null +++ b/docs/disml/Disml__Event_models/ReactionAdd/index.html @@ -0,0 +1,2 @@ + +ReactionAdd (disml.Disml__Event_models.ReactionAdd)

Module Disml__Event_models.ReactionAdd

type t = {
user_id : Disml__.User_id.t;
channel_id : Disml__.Channel_id.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id.t option;
emoji : Disml__.Emoji.partial_emoji;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ReactionRemove/index.html b/docs/disml/Disml__Event_models/ReactionRemove/index.html new file mode 100644 index 0000000..ef5d93c --- /dev/null +++ b/docs/disml/Disml__Event_models/ReactionRemove/index.html @@ -0,0 +1,2 @@ + +ReactionRemove (disml.Disml__Event_models.ReactionRemove)

Module Disml__Event_models.ReactionRemove

type t = {
user_id : Disml__.User_id.t;
channel_id : Disml__.Channel_id.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id.t option;
emoji : Disml__.Emoji.partial_emoji;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/ReactionRemoveAll/index.html b/docs/disml/Disml__Event_models/ReactionRemoveAll/index.html new file mode 100644 index 0000000..b158f2f --- /dev/null +++ b/docs/disml/Disml__Event_models/ReactionRemoveAll/index.html @@ -0,0 +1,2 @@ + +ReactionRemoveAll (disml.Disml__Event_models.ReactionRemoveAll)

Module Disml__Event_models.ReactionRemoveAll

type t = {
channel_id : Disml__.Channel_id.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id.t option;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/Ready/index.html b/docs/disml/Disml__Event_models/Ready/index.html new file mode 100644 index 0000000..419a995 --- /dev/null +++ b/docs/disml/Disml__Event_models/Ready/index.html @@ -0,0 +1,2 @@ + +Ready (disml.Disml__Event_models.Ready)

Module Disml__Event_models.Ready

type t = {
version : int;
user : Disml__.User_t.t;
private_channels : Disml__.Channel_id.t list;
guilds : Disml__.Guild_t.unavailable list;
session_id : string;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/Resumed/index.html b/docs/disml/Disml__Event_models/Resumed/index.html new file mode 100644 index 0000000..4767950 --- /dev/null +++ b/docs/disml/Disml__Event_models/Resumed/index.html @@ -0,0 +1,2 @@ + +Resumed (disml.Disml__Event_models.Resumed)

Module Disml__Event_models.Resumed

type t = {
trace : string option list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/TypingStart/index.html b/docs/disml/Disml__Event_models/TypingStart/index.html new file mode 100644 index 0000000..1a3f679 --- /dev/null +++ b/docs/disml/Disml__Event_models/TypingStart/index.html @@ -0,0 +1,2 @@ + +TypingStart (disml.Disml__Event_models.TypingStart)

Module Disml__Event_models.TypingStart

type t = {
channel_id : Disml__.Channel_id.t;
guild_id : Disml__.Guild_id.t option;
timestamp : int;
user_id : Disml__.User_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/Unknown/index.html b/docs/disml/Disml__Event_models/Unknown/index.html new file mode 100644 index 0000000..6999732 --- /dev/null +++ b/docs/disml/Disml__Event_models/Unknown/index.html @@ -0,0 +1,2 @@ + +Unknown (disml.Disml__Event_models.Unknown)

Module Disml__Event_models.Unknown

type t = {
kind : string;
value : Yojson.Safe.json;
}
val deserialize : string -> Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/UserUpdate/index.html b/docs/disml/Disml__Event_models/UserUpdate/index.html new file mode 100644 index 0000000..e141ea0 --- /dev/null +++ b/docs/disml/Disml__Event_models/UserUpdate/index.html @@ -0,0 +1,2 @@ + +UserUpdate (disml.Disml__Event_models.UserUpdate)

Module Disml__Event_models.UserUpdate

type t = {
user : Disml__.User_t.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/WebhookUpdate/index.html b/docs/disml/Disml__Event_models/WebhookUpdate/index.html new file mode 100644 index 0000000..2225d35 --- /dev/null +++ b/docs/disml/Disml__Event_models/WebhookUpdate/index.html @@ -0,0 +1,2 @@ + +WebhookUpdate (disml.Disml__Event_models.WebhookUpdate)

Module Disml__Event_models.WebhookUpdate

type t = {
channel_id : Disml__.Channel_id.t;
guild_id : Disml__.Guild_id.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val _ : t -> Yojson.Safe.json
val _ : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val _ : Yojson.Safe.json -> t
val deserialize : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Event_models/index.html b/docs/disml/Disml__Event_models/index.html new file mode 100644 index 0000000..0e193f8 --- /dev/null +++ b/docs/disml/Disml__Event_models/index.html @@ -0,0 +1,2 @@ + +Disml__Event_models (disml.Disml__Event_models)

Module Disml__Event_models

module ChannelCreate : sig ... end
module ChannelDelete : sig ... end
module ChannelUpdate : sig ... end
module ChannelPinsUpdate : sig ... end
module ChannelRecipientAdd : sig ... end
module ChannelRecipientRemove : sig ... end
module GuildBanAdd : sig ... end
module GuildBanRemove : sig ... end
module GuildCreate : sig ... end
module GuildDelete : sig ... end
module GuildUpdate : sig ... end
module GuildEmojisUpdate : sig ... end
module GuildMemberAdd : sig ... end
module GuildMemberRemove : sig ... end
module GuildMemberUpdate : sig ... end
module GuildMembersChunk : sig ... end
module GuildRoleCreate : sig ... end
module GuildRoleDelete : sig ... end
module GuildRoleUpdate : sig ... end
module GuildUnavailable : sig ... end
module MessageCreate : sig ... end
module MessageDelete : sig ... end
module MessageUpdate : sig ... end
module MessageDeleteBulk : sig ... end
module PresenceUpdate : sig ... end
module ReactionAdd : sig ... end
module ReactionRemove : sig ... end
module ReactionRemoveAll : sig ... end
module Ready : sig ... end
module Resumed : sig ... end
module TypingStart : sig ... end
module UserUpdate : sig ... end
module WebhookUpdate : sig ... end
module Unknown : sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__Guild/index.html b/docs/disml/Disml__Guild/index.html index ec49cd2..5df211f 100644 --- a/docs/disml/Disml__Guild/index.html +++ b/docs/disml/Disml__Guild/index.html @@ -1,2 +1,2 @@ -Disml__Guild (disml.Disml__Guild)

Module Disml__Guild

include module type of Disml.Guild_t
type pre = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.role list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.channel_wrapper option;
system_channel : Disml.Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.member list;
channels : Disml.Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.t list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.t option;
system_channel : Disml.Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.t list;
channels : Disml.Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
val ban_user : id:Disml.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml.Snowflake.t -> t -> Disml.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml.Ban_t.t list Async.Deferred.Or_error.t
val get_channel : id:Disml.Snowflake.t -> t -> Disml.Channel_t.t Async.Deferred.Or_error.t
val get_emoji : id:Disml.Snowflake.t -> t -> Disml.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : id:Disml.Snowflake.t -> t -> Disml.Member_t.t Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_role : id:Disml.Snowflake.t -> t -> Disml.Role_t.t option
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml.Snowflake.t -> t -> t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> t Async.Deferred.Or_error.t
val set_name : name:string -> t -> t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> t Async.Deferred.Or_error.t
val unban_user : id:Disml.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file +Disml__Guild (disml.Disml__Guild)

Module Disml__Guild

include module type of Disml__.Guild_t
type unavailable = {
id : Disml__.Guild_id_t.t;
}
val unavailable_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> unavailable
val sexp_of_unavailable : unavailable -> Ppx_sexp_conv_lib.Sexp.t
val unavailable_to_yojson : unavailable -> Yojson.Safe.json
val unavailable_of_yojson : Yojson.Safe.json -> unavailable Ppx_deriving_yojson_runtime.error_or
val unavailable_of_yojson_exn : Yojson.Safe.json -> unavailable
type pre = {
id : Disml__.Guild_id_t.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml__.User_id_t.t;
region : string;
afk_channel_id : Disml__.Channel_id_t.t option;
afk_timeout : int;
embed_enabled : bool;
embed_channel_id : Disml__.Channel_id_t.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml__.Role_t.role list;
emojis : Disml__.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml__.Snowflake.t option;
widget_enabled : bool;
widget_channel_id : Disml__.Channel_id_t.t option;
system_channel_id : Disml__.Channel_id_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml__.Member_t.member list;
channels : Disml__.Channel_t.channel_wrapper list;
}

Used internally.

val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Disml__.Guild_id_t.t;

The guild's snowflake ID.

name : string;

The guild name.

icon : string option;

The guild icon hash, if one is set.

splash : string option;

The guild splash hash, if one is set.

owner_id : Disml__.User_id_t.t;

The user ID of the owner.

region : string;

The region the guild is in.

afk_channel_id : Disml__.Channel_id_t.t option;

The AFK channel ID, if one is set.

afk_timeout : int;

The time before a user is moved to the AFK channel.

embed_enabled : bool;

Whether the embed is enabled.

embed_channel_id : Disml__.Channel_id_t.t option;

The channel ID of the embed channel, if it is enabled.

verification_level : int;

See the discord docs for details.

default_message_notifications : int;

0 = All messages, 1 = Only mentions

explicit_content_filter : int;

0 = Disabled, 1 = For members with no roles, 2 = All members

roles : Disml__.Role_t.t list;

List of roles in the guild.

emojis : Disml__.Emoji.t list;

List of custom emojis in the guild.

features : string list;

A List of features enabled for the guild.

mfa_level : int;

0 = None, 1 = Elevated

application_id : Disml__.Snowflake.t option;

Snowflake ID if the guild is bot-created.

widget_enabled : bool;

Whether the widget is enabled.

widget_channel_id : Disml__.Channel_id_t.t option;

The channel ID for the widget, if enabled.

system_channel_id : Disml__.Channel_id_t.t option;

The channel ID where system messages are sent.

large : bool;

Whether the guild exceeds the configured large threshold.

unavailable : bool;

Whether the guild is unavailable or not.

member_count : int option;

Total number of members in the guild.

members : Disml__.Member_t.t list;

List of guild members.

channels : Disml__.Channel_t.t list;

List of guild channels.

}

A Guild object

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.GuildImpl with type t := Disml__.Guild_t.t
type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val get_channel : id:Disml__.Channel_id_t.t -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t

Get a channel belonging to this guild. This does not make an HTTP request.

val get_member : id:Disml__.User_id_t.t -> t -> Disml__.Member_t.t Async.Deferred.Or_error.t

Get a member belonging to this guild. This does not make an HTTP request.

val get_role : id:Disml__.Role_id.t -> t -> Disml__.Role_t.t option

Get a role belonging to this guild. This does not make an HTTP request.

\ No newline at end of file diff --git a/docs/disml/Disml__Guild_id/.dune-keep b/docs/disml/Disml__Guild_id/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Guild_id/index.html b/docs/disml/Disml__Guild_id/index.html new file mode 100644 index 0000000..55f0644 --- /dev/null +++ b/docs/disml/Disml__Guild_id/index.html @@ -0,0 +1,2 @@ + +Disml__Guild_id (disml.Disml__Guild_id)

Module Disml__Guild_id

include module type of Disml__.Guild_id_t
type t = [
| `Guild_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.GuildImpl with type t := Disml__.Guild_id_t.t
type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Guild_id_t/.dune-keep b/docs/disml/Disml__Guild_id_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Guild_id_t/index.html b/docs/disml/Disml__Guild_id_t/index.html new file mode 100644 index 0000000..f7c3f70 --- /dev/null +++ b/docs/disml/Disml__Guild_id_t/index.html @@ -0,0 +1,2 @@ + +Disml__Guild_id_t (disml.Disml__Guild_id_t)

Module Disml__Guild_id_t

type t = [
| `Guild_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Guild_t/index.html b/docs/disml/Disml__Guild_t/index.html index cafc0f3..9e740aa 100644 --- a/docs/disml/Disml__Guild_t/index.html +++ b/docs/disml/Disml__Guild_t/index.html @@ -1,2 +1,2 @@ -Disml__Guild_t (disml.Disml__Guild_t)

Module Disml__Guild_t

type pre = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.role list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.channel_wrapper option;
system_channel : Disml.Channel_t.channel_wrapper option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.member list;
channels : Disml.Channel_t.channel_wrapper list;
}
val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Disml.Snowflake.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml.Snowflake.t;
region : string;
afk_channel_id : Disml.Snowflake.t option;
afk_timeout : int;
embed_enabled : bool option;
embed_channel_id : Disml.Snowflake.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml.Role_t.t list;
emojis : Disml.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml.Snowflake.t option;
widget_enabled : bool option;
widget_channel : Disml.Channel_t.t option;
system_channel : Disml.Channel_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml.Member_t.t list;
channels : Disml.Channel_t.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
\ No newline at end of file +Disml__Guild_t (disml.Disml__Guild_t)

Module Disml__Guild_t

type unavailable = {
id : Disml__.Guild_id_t.t;
}
val unavailable_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> unavailable
val sexp_of_unavailable : unavailable -> Ppx_sexp_conv_lib.Sexp.t
val unavailable_to_yojson : unavailable -> Yojson.Safe.json
val unavailable_of_yojson : Yojson.Safe.json -> unavailable Ppx_deriving_yojson_runtime.error_or
val unavailable_of_yojson_exn : Yojson.Safe.json -> unavailable
type pre = {
id : Disml__.Guild_id_t.t;
name : string;
icon : string option;
splash : string option;
owner_id : Disml__.User_id_t.t;
region : string;
afk_channel_id : Disml__.Channel_id_t.t option;
afk_timeout : int;
embed_enabled : bool;
embed_channel_id : Disml__.Channel_id_t.t option;
verification_level : int;
default_message_notifications : int;
explicit_content_filter : int;
roles : Disml__.Role_t.role list;
emojis : Disml__.Emoji.t list;
features : string list;
mfa_level : int;
application_id : Disml__.Snowflake.t option;
widget_enabled : bool;
widget_channel_id : Disml__.Channel_id_t.t option;
system_channel_id : Disml__.Channel_id_t.t option;
large : bool;
unavailable : bool;
member_count : int option;
members : Disml__.Member_t.member list;
channels : Disml__.Channel_t.channel_wrapper list;
}

Used internally.

val pre_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> pre
val sexp_of_pre : pre -> Ppx_sexp_conv_lib.Sexp.t
val pre_to_yojson : pre -> Yojson.Safe.json
val pre_of_yojson : Yojson.Safe.json -> pre Ppx_deriving_yojson_runtime.error_or
val pre_of_yojson_exn : Yojson.Safe.json -> pre
type t = {
id : Disml__.Guild_id_t.t;

The guild's snowflake ID.

name : string;

The guild name.

icon : string option;

The guild icon hash, if one is set.

splash : string option;

The guild splash hash, if one is set.

owner_id : Disml__.User_id_t.t;

The user ID of the owner.

region : string;

The region the guild is in.

afk_channel_id : Disml__.Channel_id_t.t option;

The AFK channel ID, if one is set.

afk_timeout : int;

The time before a user is moved to the AFK channel.

embed_enabled : bool;

Whether the embed is enabled.

embed_channel_id : Disml__.Channel_id_t.t option;

The channel ID of the embed channel, if it is enabled.

verification_level : int;

See the discord docs for details.

default_message_notifications : int;

0 = All messages, 1 = Only mentions

explicit_content_filter : int;

0 = Disabled, 1 = For members with no roles, 2 = All members

roles : Disml__.Role_t.t list;

List of roles in the guild.

emojis : Disml__.Emoji.t list;

List of custom emojis in the guild.

features : string list;

A List of features enabled for the guild.

mfa_level : int;

0 = None, 1 = Elevated

application_id : Disml__.Snowflake.t option;

Snowflake ID if the guild is bot-created.

widget_enabled : bool;

Whether the widget is enabled.

widget_channel_id : Disml__.Channel_id_t.t option;

The channel ID for the widget, if enabled.

system_channel_id : Disml__.Channel_id_t.t option;

The channel ID where system messages are sent.

large : bool;

Whether the guild exceeds the configured large threshold.

unavailable : bool;

Whether the guild is unavailable or not.

member_count : int option;

Total number of members in the guild.

members : Disml__.Member_t.t list;

List of guild members.

channels : Disml__.Channel_t.t list;

List of guild channels.

}

A Guild object

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : pre -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Http/index.html b/docs/disml/Disml__Http/index.html index 8895fff..10354cc 100644 --- a/docs/disml/Disml__Http/index.html +++ b/docs/disml/Disml__Http/index.html @@ -1,2 +1,2 @@ -Disml__Http (disml.Disml__Http)

Module Disml__Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_reactions : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val broadcast_typing : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_pinned_messages : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val pin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val unpin_message : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emojis : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_emoji : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_channels : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_member : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_members : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_bans : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_ban : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_roles : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val sync_integration : int -> int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guilds : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val leave_guild : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file +Disml__Http (disml.Disml__Http)

Module Disml__Http

module Base : sig ... end
val get_gateway : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_gateway_bot : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel : int -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val modify_channel : int -> Yojson.Safe.json -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete_channel : int -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_messages : int -> int -> (string * int) -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val get_message : int -> int -> Disml__.Message_t.t Async.Deferred.Or_error.t
val create_message : int -> Yojson.Safe.json -> Disml__.Message_t.t Async.Deferred.Or_error.t
val create_reaction : int -> int -> string -> unit Async.Deferred.Or_error.t
val delete_own_reaction : int -> int -> string -> unit Async.Deferred.Or_error.t
val delete_reaction : int -> int -> string -> int -> unit Async.Deferred.Or_error.t
val get_reactions : int -> int -> string -> Disml__.User_t.t list Async.Deferred.Or_error.t
val delete_reactions : int -> int -> unit Async.Deferred.Or_error.t
val edit_message : int -> int -> Yojson.Safe.json -> Disml__.Message_t.t Async.Deferred.Or_error.t
val delete_message : int -> int -> unit Async.Deferred.Or_error.t
val bulk_delete : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val edit_channel_permissions : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_channel_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_channel_invite : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_channel_permission : int -> int -> unit Async.Deferred.Or_error.t
val broadcast_typing : int -> unit Async.Deferred.Or_error.t
val get_pinned_messages : int -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val pin_message : int -> int -> unit Async.Deferred.Or_error.t
val unpin_message : int -> int -> unit Async.Deferred.Or_error.t
val group_recipient_add : int -> int -> unit Async.Deferred.Or_error.t
val group_recipient_remove : int -> int -> unit Async.Deferred.Or_error.t
val get_emojis : int -> Disml__.Emoji.t list Async.Deferred.Or_error.t
val get_emoji : int -> int -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_emoji : int -> Yojson.Safe.json -> Disml__.Emoji.t Async.Deferred.Or_error.t
val edit_emoji : int -> int -> Yojson.Safe.json -> Disml__.Emoji.t Async.Deferred.Or_error.t
val delete_emoji : int -> int -> unit Async.Deferred.Or_error.t
val create_guild : Yojson.Safe.json -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val get_guild : int -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val edit_guild : int -> Yojson.Safe.json -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val delete_guild : int -> unit Async.Deferred.Or_error.t
val get_guild_channels : int -> Disml__.Channel_t.t list Async.Deferred.Or_error.t
val create_guild_channel : int -> Yojson.Safe.json -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val modify_guild_channel_positions : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_member : int -> int -> Disml__.Member.t Async.Deferred.Or_error.t
val get_members : int -> Disml__.Member.t list Async.Deferred.Or_error.t
val add_member : int -> int -> Yojson.Safe.json -> Disml__.Member.t Async.Deferred.Or_error.t
val edit_member : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val remove_member : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val change_nickname : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_member_role : int -> int -> int -> unit Async.Deferred.Or_error.t
val remove_member_role : int -> int -> int -> unit Async.Deferred.Or_error.t
val get_bans : int -> Disml__.Ban.t list Async.Deferred.Or_error.t
val get_ban : int -> int -> Disml__.Ban.t Async.Deferred.Or_error.t
val guild_ban_add : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val guild_ban_remove : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val get_roles : int -> Disml__.Role_t.t list Async.Deferred.Or_error.t
val guild_role_add : int -> Yojson.Safe.json -> Disml__.Role_t.t Async.Deferred.Or_error.t
val guild_roles_edit : int -> Yojson.Safe.json -> Disml__.Role_t.t list Async.Deferred.Or_error.t
val guild_role_edit : int -> int -> Yojson.Safe.json -> Disml__.Role_t.t Async.Deferred.Or_error.t
val guild_role_remove : int -> int -> unit Async.Deferred.Or_error.t
val guild_prune_count : int -> int -> int Async.Deferred.Or_error.t
val guild_prune_start : int -> int -> int Async.Deferred.Or_error.t
val get_guild_voice_regions : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_invites : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_integrations : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val add_integration : int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val edit_integration : int -> int -> Yojson.Safe.json -> unit Async.Deferred.Or_error.t
val delete_integration : int -> int -> unit Async.Deferred.Or_error.t
val sync_integration : int -> int -> unit Async.Deferred.Or_error.t
val get_guild_embed : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_guild_embed : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_vanity_url : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_invite : string -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_current_user : unit -> Disml__.User_t.t Async.Deferred.Or_error.t
val edit_current_user : Yojson.Safe.json -> Disml__.User_t.t Async.Deferred.Or_error.t
val get_guilds : unit -> Disml__.Guild_t.t list Async.Deferred.Or_error.t
val leave_guild : int -> unit Async.Deferred.Or_error.t
val get_private_channels : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_group_dm : Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_connections : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_user : int -> Disml__.User_t.t Async.Deferred.Or_error.t
val get_voice_regions : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
val create_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_channel_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_guild_webhooks : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook : int -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_webhook_with_token : int -> string -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val edit_webhook_with_token : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete_webhook : int -> unit Async.Deferred.Or_error.t
val delete_webhook_with_token : int -> string -> unit Async.Deferred.Or_error.t
val execute_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_slack_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val execute_git_webhook : int -> string -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_audit_logs : int -> Yojson.Safe.json -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_application_info : unit -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/.dune-keep b/docs/disml/Disml__Impl/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Impl/Channel/argument-1-T/index.html b/docs/disml/Disml__Impl/Channel/argument-1-T/index.html new file mode 100644 index 0000000..21de699 --- /dev/null +++ b/docs/disml/Disml__Impl/Channel/argument-1-T/index.html @@ -0,0 +1,2 @@ + +1-T (disml.Disml__Impl.Channel.1-T)

Parameter Channel.1-T

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/Channel/index.html b/docs/disml/Disml__Impl/Channel/index.html new file mode 100644 index 0000000..d953f09 --- /dev/null +++ b/docs/disml/Disml__Impl/Channel/index.html @@ -0,0 +1,10 @@ + +Channel (disml.Disml__Impl.Channel)

Module Disml__Impl.Channel

Parameters

T : Disml__.S.HasSnowflake

Signature

type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/Guild/argument-1-T/index.html b/docs/disml/Disml__Impl/Guild/argument-1-T/index.html new file mode 100644 index 0000000..32e1320 --- /dev/null +++ b/docs/disml/Disml__Impl/Guild/argument-1-T/index.html @@ -0,0 +1,2 @@ + +1-T (disml.Disml__Impl.Guild.1-T)

Parameter Guild.1-T

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/Guild/index.html b/docs/disml/Disml__Impl/Guild/index.html new file mode 100644 index 0000000..cde7414 --- /dev/null +++ b/docs/disml/Disml__Impl/Guild/index.html @@ -0,0 +1,2 @@ + +Guild (disml.Disml__Impl.Guild)

Module Disml__Impl.Guild

Parameters

T : Disml__.S.HasSnowflake

Signature

type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/User/argument-1-T/index.html b/docs/disml/Disml__Impl/User/argument-1-T/index.html new file mode 100644 index 0000000..200dd5d --- /dev/null +++ b/docs/disml/Disml__Impl/User/argument-1-T/index.html @@ -0,0 +1,2 @@ + +1-T (disml.Disml__Impl.User.1-T)

Parameter User.1-T

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/User/index.html b/docs/disml/Disml__Impl/User/index.html new file mode 100644 index 0000000..6011e65 --- /dev/null +++ b/docs/disml/Disml__Impl/User/index.html @@ -0,0 +1,2 @@ + +User (disml.Disml__Impl.User)

Module Disml__Impl.User

Parameters

T : Disml__.S.HasSnowflake

Signature

type t
\ No newline at end of file diff --git a/docs/disml/Disml__Impl/index.html b/docs/disml/Disml__Impl/index.html new file mode 100644 index 0000000..1f851d1 --- /dev/null +++ b/docs/disml/Disml__Impl/index.html @@ -0,0 +1,2 @@ + +Disml__Impl (disml.Disml__Impl)

Module Disml__Impl

module Channel : functor (T : Disml__.S.HasSnowflake) -> Disml__.S.ChannelImpl with type t := T.t
module Guild : functor (T : Disml__.S.HasSnowflake) -> Disml__.S.GuildImpl with type t := T.t
module User : functor (T : Disml__.S.HasSnowflake) -> Disml__.S.UserImpl with type t := T.t
\ No newline at end of file diff --git a/docs/disml/Disml__Member/index.html b/docs/disml/Disml__Member/index.html index 09cd5a8..a983c95 100644 --- a/docs/disml/Disml__Member/index.html +++ b/docs/disml/Disml__Member/index.html @@ -1,2 +1,2 @@ -Disml__Member (disml.Disml__Member)

Module Disml__Member

include module type of Disml.Member_t
type partial_member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml.Snowflake.t;
user : Disml.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml.Snowflake.t;
roles : Disml.Snowflake.t list;
user : Disml.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> member -> t
val add_role : role:Disml.Role_t.t -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val remove_role : role:Disml.Role_t.t -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val ban : ?⁠reason:string -> ?⁠days:int -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val kick : ?⁠reason:string -> Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val mute : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val deafen : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val unmute : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
val undeafen : Disml.Member_t.t -> unit Async.Deferred.Or_error.t
\ No newline at end of file +Disml__Member (disml.Disml__Member)

Module Disml__Member

include module type of Disml__.Member_t
type partial_member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml__.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml__.Guild_id_t.t;
user : Disml__.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml__.Guild_id_t.t;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;

The nickname of the member, if they have one set.

roles : Disml__.Role_id.t list;

The roles the member has.

joined_at : string;

An ISO8601 timestamp of when the user joined.

deaf : bool;

Whether the user is deafened.

mute : bool;

Whether the user is muted.

user : Disml__.User_t.t;

The underlying user object for the member.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which the member exists.

}

A member object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> member -> t
val add_role : role:Disml__.Role_t.t -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Adds a role to the member.

val remove_role : role:Disml__.Role_t.t -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Removes a role from the member.

val ban : ?⁠reason:string -> ?⁠days:int -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Bans the member with optional reason and days of messages to delete.

val kick : ?⁠reason:string -> Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Kicks the member with the optional reason.

val mute : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Mutes the member, preventing them from speaking in voice chats.

val deafen : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Deafens the member, preventing them from hearing others in voice chats.

val unmute : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Opposite of mute.

val undeafen : Disml__.Member_t.t -> unit Async.Deferred.Or_error.t

Opposite of deafen.

\ No newline at end of file diff --git a/docs/disml/Disml__Member_t/index.html b/docs/disml/Disml__Member_t/index.html index 8a5ef8b..52aa952 100644 --- a/docs/disml/Disml__Member_t/index.html +++ b/docs/disml/Disml__Member_t/index.html @@ -1,2 +1,2 @@ -Disml__Member_t (disml.Disml__Member_t)

Module Disml__Member_t

type partial_member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml.Snowflake.t;
user : Disml.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml.Snowflake.t;
roles : Disml.Snowflake.t list;
user : Disml.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;
roles : Disml.Snowflake.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml.User_t.t;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> member -> t
\ No newline at end of file +Disml__Member_t (disml.Disml__Member_t)

Module Disml__Member_t

type partial_member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
}
val partial_member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_member
val sexp_of_partial_member : partial_member -> Ppx_sexp_conv_lib.Sexp.t
val partial_member_to_yojson : partial_member -> Yojson.Safe.json
val partial_member_of_yojson : Yojson.Safe.json -> partial_member Ppx_deriving_yojson_runtime.error_or
val partial_member_of_yojson_exn : Yojson.Safe.json -> partial_member
type member = {
nick : string option;
roles : Disml__.Role_id.t list;
joined_at : string;
deaf : bool;
mute : bool;
user : Disml__.User_t.t;
}
val member_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member
val sexp_of_member : member -> Ppx_sexp_conv_lib.Sexp.t
val member_to_yojson : member -> Yojson.Safe.json
val member_of_yojson : Yojson.Safe.json -> member Ppx_deriving_yojson_runtime.error_or
val member_of_yojson_exn : Yojson.Safe.json -> member
type member_wrapper = {
guild_id : Disml__.Guild_id_t.t;
user : Disml__.User_t.t;
}
val member_wrapper_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_wrapper
val sexp_of_member_wrapper : member_wrapper -> Ppx_sexp_conv_lib.Sexp.t
val member_wrapper_to_yojson : member_wrapper -> Yojson.Safe.json
val member_wrapper_of_yojson : Yojson.Safe.json -> member_wrapper Ppx_deriving_yojson_runtime.error_or
val member_wrapper_of_yojson_exn : Yojson.Safe.json -> member_wrapper
type member_update = {
guild_id : Disml__.Guild_id_t.t;
roles : Disml__.Role_id.t list;
user : Disml__.User_t.t;
nick : string option;
}
val member_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> member_update
val sexp_of_member_update : member_update -> Ppx_sexp_conv_lib.Sexp.t
val member_update_to_yojson : member_update -> Yojson.Safe.json
val member_update_of_yojson : Yojson.Safe.json -> member_update Ppx_deriving_yojson_runtime.error_or
val member_update_of_yojson_exn : Yojson.Safe.json -> member_update
type t = {
nick : string option;

The nickname of the member, if they have one set.

roles : Disml__.Role_id.t list;

The roles the member has.

joined_at : string;

An ISO8601 timestamp of when the user joined.

deaf : bool;

Whether the user is deafened.

mute : bool;

Whether the user is muted.

user : Disml__.User_t.t;

The underlying user object for the member.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which the member exists.

}

A member object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> member -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Message/index.html b/docs/disml/Disml__Message/index.html index 522ee5b..dd06c87 100644 --- a/docs/disml/Disml__Message/index.html +++ b/docs/disml/Disml__Message/index.html @@ -1,2 +1,2 @@ -Disml__Message (disml.Disml__Message)

Module Disml__Message

include module type of Disml.Message_t
type message_update = {
id : Disml.Snowflake.t;
author : Disml.User_t.t option;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Disml.Snowflake.t list;
role_mentions : Disml.Snowflake.t list;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool option;
webhook_id : Disml.Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
type t = {
id : Disml.Snowflake.t;
author : Disml.User_t.t;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool;
webhook_id : Disml.Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val add_reaction : t -> Disml.Emoji.t -> unit Async.Deferred.Or_error.t
val remove_reaction : t -> Disml.Emoji.t -> Disml.User_t.t -> unit Async.Deferred.Or_error.t
val clear_reactions : t -> unit Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val pin : t -> unit Async.Deferred.Or_error.t
val unpin : t -> unit Async.Deferred.Or_error.t
val reply : t -> string -> t Async.Deferred.Or_error.t
val reply_with : ?⁠embed:Disml.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml.Message_t.t Async.Deferred.Or_error.t
val set_content : t -> string -> t Async.Deferred.Or_error.t
val set_embed : t -> Disml.Embed.t -> t Async.Deferred.Or_error.t
\ No newline at end of file +Disml__Message (disml.Disml__Message)

Module Disml__Message

include module type of Disml__.Message_t
type t = {
id : Disml__.Message_id.t;

Snowflake ID of the message.

author : Disml__.User_t.t;

User that authored the message.

channel_id : Disml__.Channel_id_t.t;

Channel ID the message exists in.

member : Disml__.Member_t.partial_member option;

A partial member if the message was sent in a guild.

guild_id : Disml__.Guild_id_t.t option;

Guild ID if the message was sent in a guild.

content : string;

Content of the message.

timestamp : string;

ISO8601 timestamp of when the message was created.

edited_timestamp : string option;

Like timestamp, but for last edit, if any.

tts : bool;

Whether the message used text-to-speech.

mention_everyone : bool;

Whether the message mentioned @everyone or @here

mentions : Disml__.User_t.t list;

A List of users that were mentioned in the message.

mention_roles : Disml__.Role_id.t list;

A list of roles that were mentioned in the message.

attachments : Disml__.Attachment.t list;

A list of attachments.

embeds : Disml__.Embed.t list;

A List of embeds on the message.

reactions : Disml__.Snowflake.t list;

A list of reactions.

nonce : Disml__.Snowflake.t option;

Used in verification, safe to ignore.

pinned : bool;

Whether the message is pinned.

webhook_id : Disml__.Snowflake.t option;

The webhook ID, if the message was sent by a webhook.

kind : int;

See the discord docs for message type enumeration.

}

Represents a message object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val add_reaction : t -> Disml__.Emoji.t -> unit Async.Deferred.Or_error.t

Add the given emoji as a reaction.

val remove_reaction : t -> Disml__.Emoji.t -> Disml__.User_t.t -> unit Async.Deferred.Or_error.t

Remove the reaction. Must also specify the user.

val clear_reactions : t -> unit Async.Deferred.Or_error.t

Remove all reactions from the message.

val delete : t -> unit Async.Deferred.Or_error.t

Delete the message.

val pin : t -> unit Async.Deferred.Or_error.t

Pin the message.

val unpin : t -> unit Async.Deferred.Or_error.t

Unping the message.

val reply : t -> string -> t Async.Deferred.Or_error.t

Sugar for Channel_id.say msg.channel_id content.

val reply_with : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Sugar for Channel_id.send_message ?embed ?content ?file ?tts msg.channel_id.

val set_content : t -> string -> t Async.Deferred.Or_error.t

Set the content of the message.

val set_embed : t -> Disml__.Embed.t -> t Async.Deferred.Or_error.t

Set the embed of the message.

\ No newline at end of file diff --git a/docs/disml/Disml__Message_id/.dune-keep b/docs/disml/Disml__Message_id/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Message_id/index.html b/docs/disml/Disml__Message_id/index.html new file mode 100644 index 0000000..3dbfde4 --- /dev/null +++ b/docs/disml/Disml__Message_id/index.html @@ -0,0 +1,2 @@ + +Disml__Message_id (disml.Disml__Message_id)

Module Disml__Message_id

type t = [
| `Message_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Message_t/index.html b/docs/disml/Disml__Message_t/index.html index 5b28413..247a140 100644 --- a/docs/disml/Disml__Message_t/index.html +++ b/docs/disml/Disml__Message_t/index.html @@ -1,2 +1,2 @@ -Disml__Message_t (disml.Disml__Message_t)

Module Disml__Message_t

type message_update = {
id : Disml.Snowflake.t;
author : Disml.User_t.t option;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string option;
timestamp : string option;
editedimestamp : string option;
tts : bool option;
mention_everyone : bool option;
mentions : Disml.Snowflake.t list;
role_mentions : Disml.Snowflake.t list;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool option;
webhook_id : Disml.Snowflake.t option;
kind : int option;
}
val message_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> message_update
val sexp_of_message_update : message_update -> Ppx_sexp_conv_lib.Sexp.t
val message_update_to_yojson : message_update -> Yojson.Safe.json
val message_update_of_yojson : Yojson.Safe.json -> message_update Ppx_deriving_yojson_runtime.error_or
val message_update_of_yojson_exn : Yojson.Safe.json -> message_update
type t = {
id : Disml.Snowflake.t;
author : Disml.User_t.t;
channel_id : Disml.Snowflake.t;
member : Disml.Member_t.partial_member option;
guild_id : Disml.Snowflake.t option;
content : string;
timestamp : string;
editedimestamp : string option;
tts : bool;
mention_everyone : bool;
attachments : Disml.Attachment.t list;
embeds : Disml.Embed.t list;
reactions : Disml.Snowflake.t list;
nonce : Disml.Snowflake.t option;
pinned : bool;
webhook_id : Disml.Snowflake.t option;
kind : int;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Message_t (disml.Disml__Message_t)

Module Disml__Message_t

type t = {
id : Disml__.Message_id.t;

Snowflake ID of the message.

author : Disml__.User_t.t;

User that authored the message.

channel_id : Disml__.Channel_id_t.t;

Channel ID the message exists in.

member : Disml__.Member_t.partial_member option;

A partial member if the message was sent in a guild.

guild_id : Disml__.Guild_id_t.t option;

Guild ID if the message was sent in a guild.

content : string;

Content of the message.

timestamp : string;

ISO8601 timestamp of when the message was created.

edited_timestamp : string option;

Like timestamp, but for last edit, if any.

tts : bool;

Whether the message used text-to-speech.

mention_everyone : bool;

Whether the message mentioned @everyone or @here

mentions : Disml__.User_t.t list;

A List of users that were mentioned in the message.

mention_roles : Disml__.Role_id.t list;

A list of roles that were mentioned in the message.

attachments : Disml__.Attachment.t list;

A list of attachments.

embeds : Disml__.Embed.t list;

A List of embeds on the message.

reactions : Disml__.Snowflake.t list;

A list of reactions.

nonce : Disml__.Snowflake.t option;

Used in verification, safe to ignore.

pinned : bool;

Whether the message is pinned.

webhook_id : Disml__.Snowflake.t option;

The webhook ID, if the message was sent by a webhook.

kind : int;

See the discord docs for message type enumeration.

}

Represents a message object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Presence/index.html b/docs/disml/Disml__Presence/index.html index 76e643b..a6f04ca 100644 --- a/docs/disml/Disml__Presence/index.html +++ b/docs/disml/Disml__Presence/index.html @@ -1,2 +1,2 @@ -Disml__Presence (disml.Disml__Presence)

Module Disml__Presence

type t = {
user : Disml.User_t.partial_user;
roles : Disml.Snowflake.t list;
game : Disml.Activity.t option;
guild_id : Disml.Snowflake.t;
status : string;
activities : Disml.Activity.t list;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Presence (disml.Disml__Presence)

Module Disml__Presence

type t = {
user : Disml__.User_t.partial_user;

A partial user that this presence belongs to.

roles : Disml__.Role_id.t list;

A list of roles that the user has.

game : Disml__.Activity.t option;

The current activity of the user, if any.

guild_id : Disml__.Guild_id_t.t;

The guild ID in which this presence exists.

status : string;

One of online, idle, offline, or dnd.

activities : Disml__.Activity.t list;

A list of all of the user's current activities.

}

A user presence.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Reaction/index.html b/docs/disml/Disml__Reaction/index.html index 22832de..3293c96 100644 --- a/docs/disml/Disml__Reaction/index.html +++ b/docs/disml/Disml__Reaction/index.html @@ -1,2 +1,2 @@ -Disml__Reaction (disml.Disml__Reaction)

Module Disml__Reaction

include module type of Disml.Reaction_t
type reaction_event = {
user_id : Disml.Snowflake.t;
channel_id : Disml.Snowflake.t;
message_id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
emoji : Disml.Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml.Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Reaction (disml.Disml__Reaction)

Module Disml__Reaction

include module type of Disml__.Reaction_t
type reaction_event = {
user_id : Disml__.User_id_t.t;
channel_id : Disml__.Channel_id_t.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id_t.t option;
emoji : Disml__.Emoji.partial_emoji;
}

Represents a single reaction as received over the gateway.

val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml__.Emoji.t;
}

Represents a number of emojis used as a reaction on a message.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Reaction_t/index.html b/docs/disml/Disml__Reaction_t/index.html index f3a9571..5dd4c84 100644 --- a/docs/disml/Disml__Reaction_t/index.html +++ b/docs/disml/Disml__Reaction_t/index.html @@ -1,2 +1,2 @@ -Disml__Reaction_t (disml.Disml__Reaction_t)

Module Disml__Reaction_t

type reaction_event = {
user_id : Disml.Snowflake.t;
channel_id : Disml.Snowflake.t;
message_id : Disml.Snowflake.t;
guild_id : Disml.Snowflake.t option;
emoji : Disml.Emoji.partial_emoji;
}
val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml.Emoji.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__Reaction_t (disml.Disml__Reaction_t)

Module Disml__Reaction_t

type reaction_event = {
user_id : Disml__.User_id_t.t;
channel_id : Disml__.Channel_id_t.t;
message_id : Disml__.Message_id.t;
guild_id : Disml__.Guild_id_t.t option;
emoji : Disml__.Emoji.partial_emoji;
}

Represents a single reaction as received over the gateway.

val reaction_event_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> reaction_event
val sexp_of_reaction_event : reaction_event -> Ppx_sexp_conv_lib.Sexp.t
val reaction_event_to_yojson : reaction_event -> Yojson.Safe.json
val reaction_event_of_yojson : Yojson.Safe.json -> reaction_event Ppx_deriving_yojson_runtime.error_or
val reaction_event_of_yojson_exn : Yojson.Safe.json -> reaction_event
type t = {
count : int;
emoji : Disml__.Emoji.t;
}

Represents a number of emojis used as a reaction on a message.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file diff --git a/docs/disml/Disml__Role/index.html b/docs/disml/Disml__Role/index.html index 3a02aac..5c25b15 100644 --- a/docs/disml/Disml__Role/index.html +++ b/docs/disml/Disml__Role/index.html @@ -1,2 +1,2 @@ -Disml__Role (disml.Disml__Role)

Module Disml__Role

include module type of Disml.Role_t
type role = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Disml.Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
type t = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> role -> t
val allow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val delete : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val disallow_mention : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val hoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_colour : colour:int -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val set_name : name:string -> t -> Yojson.Safe.json Async.Deferred.Or_error.t
val unhoist : t -> Yojson.Safe.json Async.Deferred.Or_error.t
\ No newline at end of file +Disml__Role (disml.Disml__Role)

Module Disml__Role

include module type of Disml__.Role_t
type role = {
id : Disml__.Role_id.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}

A role as Discord sends it. Only difference between this and t is the lack of the guild_id field.

val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type t = {
id : Disml__.Role_id.t;

The role's snowflake ID.

name : string;

The role's name.

colour : int;

The integer representation of the role colour.

hoist : bool;

Whether the role is hoisted. This property controls whether the role is separated on the sidebar.

position : int;

The position of the role. @everyone begins the list at 0.

permissions : int;

The integer representation of the permissions the role has.

managed : bool;

Whether the guild is managed by an integration.

mentionable : bool;

Whether the role can be mentioned.

guild_id : Disml__.Guild_id_t.t;

The guild ID this role belongs to.

}

A role object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> role -> t

Convenience method to produce t from role and a snowflake.

val delete : t -> unit Async.Deferred.Or_error.t

Deletes the role. This is permanent.

val allow_mention : t -> t Async.Deferred.Or_error.t

Edits the role to allow mentions.

val disallow_mention : t -> t Async.Deferred.Or_error.t

Opposite of allow_mention

val hoist : t -> t Async.Deferred.Or_error.t

Hoists the role. See Role.t.hoist.

val unhoist : t -> t Async.Deferred.Or_error.t

Opposite of hoist.

val set_colour : colour:int -> t -> t Async.Deferred.Or_error.t

Sets the colour of the role.

val set_name : name:string -> t -> t Async.Deferred.Or_error.t

Sets the name of the role.

\ No newline at end of file diff --git a/docs/disml/Disml__Role_id/.dune-keep b/docs/disml/Disml__Role_id/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__Role_id/index.html b/docs/disml/Disml__Role_id/index.html new file mode 100644 index 0000000..c7d25c0 --- /dev/null +++ b/docs/disml/Disml__Role_id/index.html @@ -0,0 +1,2 @@ + +Disml__Role_id (disml.Disml__Role_id)

Module Disml__Role_id

type t = [
| `Role_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__Role_t/index.html b/docs/disml/Disml__Role_t/index.html index 927e302..23ce4a9 100644 --- a/docs/disml/Disml__Role_t/index.html +++ b/docs/disml/Disml__Role_t/index.html @@ -1,2 +1,2 @@ -Disml__Role_t (disml.Disml__Role_t)

Module Disml__Role_t

type role = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}
val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type role_update = {
role : role;
guild_id : Disml.Snowflake.t;
}
val role_update_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role_update
val sexp_of_role_update : role_update -> Ppx_sexp_conv_lib.Sexp.t
val role_update_to_yojson : role_update -> Yojson.Safe.json
val role_update_of_yojson : Yojson.Safe.json -> role_update Ppx_deriving_yojson_runtime.error_or
val role_update_of_yojson_exn : Yojson.Safe.json -> role_update
type t = {
id : Disml.Snowflake.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
guild_id : Disml.Snowflake.t;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml.Snowflake.t -> role -> t
\ No newline at end of file +Disml__Role_t (disml.Disml__Role_t)

Module Disml__Role_t

type role = {
id : Disml__.Role_id.t;
name : string;
colour : int;
hoist : bool;
position : int;
permissions : int;
managed : bool;
mentionable : bool;
}

A role as Discord sends it. Only difference between this and t is the lack of the guild_id field.

val role_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> role
val sexp_of_role : role -> Ppx_sexp_conv_lib.Sexp.t
val role_to_yojson : role -> Yojson.Safe.json
val role_of_yojson : Yojson.Safe.json -> role Ppx_deriving_yojson_runtime.error_or
val role_of_yojson_exn : Yojson.Safe.json -> role
type t = {
id : Disml__.Role_id.t;

The role's snowflake ID.

name : string;

The role's name.

colour : int;

The integer representation of the role colour.

hoist : bool;

Whether the role is hoisted. This property controls whether the role is separated on the sidebar.

position : int;

The position of the role. @everyone begins the list at 0.

permissions : int;

The integer representation of the permissions the role has.

managed : bool;

Whether the guild is managed by an integration.

mentionable : bool;

Whether the role can be mentioned.

guild_id : Disml__.Guild_id_t.t;

The guild ID this role belongs to.

}

A role object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val wrap : guild_id:Disml__.Snowflake.t -> role -> t

Convenience method to produce t from role and a snowflake.

\ No newline at end of file diff --git a/docs/disml/Disml__S/.dune-keep b/docs/disml/Disml__S/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__S/index.html b/docs/disml/Disml__S/index.html new file mode 100644 index 0000000..777355f --- /dev/null +++ b/docs/disml/Disml__S/index.html @@ -0,0 +1,2 @@ + +Disml__S (disml.Disml__S)

Module Disml__S

module type HasSnowflake = sig ... end
module type ChannelImpl = sig ... end
module type GuildImpl = sig ... end
module type UserImpl = sig ... end
\ No newline at end of file diff --git a/docs/disml/Disml__S/module-type-ChannelImpl/index.html b/docs/disml/Disml__S/module-type-ChannelImpl/index.html new file mode 100644 index 0000000..85825cc --- /dev/null +++ b/docs/disml/Disml__S/module-type-ChannelImpl/index.html @@ -0,0 +1,10 @@ + +ChannelImpl (disml.Disml__S.ChannelImpl)

Module type Disml__S.ChannelImpl

type t
exception Invalid_message
exception No_message_found
val send_message : ?⁠embed:Disml__.Embed.t -> ?⁠content:string -> ?⁠file:string -> ?⁠tts:bool -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

Advanced message sending.

Raises Invalid_message if one of content or embed is not set.

Examples

            open Core
+            open Disml
+
+            let check_command (msg : Message.t) =
+                if String.is_prefix ~prefix:"!hello" msg.content then
+                    let embed = Embed.(default |> title "Hello World!") in
+                    Channel_id.send_message ~embed msg.channel_id >>> ignore
+
+            Client.message_create := check_command
val say : string -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t

say str ch is equivalent to send_message ~content:str ch.

val delete : t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val get_message : id:Disml__.Snowflake.t -> t -> Disml__.Message_t.t Async.Deferred.Or_error.t
val get_messages : ?⁠mode:[ `Before | `After | `Around ] -> ?⁠id:Disml__.Snowflake.t -> ?⁠limit:int -> t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
val broadcast_typing : t -> unit Async.Deferred.Or_error.t
val get_pins : t -> Disml__.Message_t.t list Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__S/module-type-GuildImpl/index.html b/docs/disml/Disml__S/module-type-GuildImpl/index.html new file mode 100644 index 0000000..054d8eb --- /dev/null +++ b/docs/disml/Disml__S/module-type-GuildImpl/index.html @@ -0,0 +1,2 @@ + +GuildImpl (disml.Disml__S.GuildImpl)

Module type Disml__S.GuildImpl

type t
val ban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> ?⁠days:int -> t -> unit Async.Deferred.Or_error.t
val create_emoji : name:string -> image:string -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val create_role : name:string -> ?⁠colour:int -> ?⁠permissions:int -> ?⁠hoist:bool -> ?⁠mentionable:bool -> t -> Disml__.Role_t.t Async.Deferred.Or_error.t
val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Disml__.Channel_t.t Async.Deferred.Or_error.t
val delete : t -> unit Async.Deferred.Or_error.t
val get_ban : id:Disml__.Snowflake.t -> t -> Disml__.Ban_t.t Async.Deferred.Or_error.t
val get_bans : t -> Disml__.Ban_t.t list Async.Deferred.Or_error.t
val get_emoji : id:Disml__.Snowflake.t -> t -> Disml__.Emoji.t Async.Deferred.Or_error.t
val get_invites : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val get_prune_count : days:int -> t -> int Async.Deferred.Or_error.t
val get_webhooks : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val kick_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
val leave : t -> unit Async.Deferred.Or_error.t
val list_voice_regions : t -> Yojson.Safe.json Async.Deferred.Or_error.t
val prune : days:int -> t -> int Async.Deferred.Or_error.t
val request_members : t -> Disml__.Member_t.t list Async.Deferred.Or_error.t
val set_afk_channel : id:Disml__.Snowflake.t -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_afk_timeout : timeout:int -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_name : name:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val set_icon : icon:string -> t -> Disml__.Guild_t.t Async.Deferred.Or_error.t
val unban_user : id:Disml__.Snowflake.t -> ?⁠reason:string -> t -> unit Async.Deferred.Or_error.t
\ No newline at end of file diff --git a/docs/disml/Disml__S/module-type-HasSnowflake/index.html b/docs/disml/Disml__S/module-type-HasSnowflake/index.html new file mode 100644 index 0000000..c68747c --- /dev/null +++ b/docs/disml/Disml__S/module-type-HasSnowflake/index.html @@ -0,0 +1,2 @@ + +HasSnowflake (disml.Disml__S.HasSnowflake)

Module type Disml__S.HasSnowflake

type t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__S/module-type-UserImpl/index.html b/docs/disml/Disml__S/module-type-UserImpl/index.html new file mode 100644 index 0000000..31c3151 --- /dev/null +++ b/docs/disml/Disml__S/module-type-UserImpl/index.html @@ -0,0 +1,2 @@ + +UserImpl (disml.Disml__S.UserImpl)

Module type Disml__S.UserImpl

type t
\ No newline at end of file diff --git a/docs/disml/Disml__Sharder/Shard/index.html b/docs/disml/Disml__Sharder/Shard/index.html index dd012b2..ade0568 100644 --- a/docs/disml/Disml__Sharder/Shard/index.html +++ b/docs/disml/Disml__Sharder/Shard/index.html @@ -1,2 +1,2 @@ -Shard (disml.Disml__Sharder.Shard)

Module Disml__Sharder.Shard

Module representing a single shard.

type shard = {
hb_interval : Core.Time.Span.t Async.Ivar.t;

Time span between heartbeats, wrapped in an Ivar.

seq : int;

Current sequence number

session : string option;

Session id, if one exists.

pipe : Websocket_async.Frame.t Async.Pipe.Reader.t * Websocket_async.Frame.t Async.Pipe.Writer.t;

Raw frame IO pipe used for websocket communications.

ready : unit Async.Ivar.t;

A simple Ivar indicating if the shard has received READY.

url : string;

The websocket URL in use.

id : int * int;

A tuple as expected by Discord. First element is the current shard index, second element is the total shard count.

}

Representation of the state of a shard.

type 'a t = {
mutable state : 'a;
}

Wrapper around an internal state, used to wrap shard.

val heartbeat : shard -> shard Async.Deferred.t

Send a heartbeat to Discord. This is handled automatically.

val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t

Set the status of the shard.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml.Snowflake.t -> shard -> shard Async.Deferred.t

Request guild members for the shard's guild. Causes dispatch of multiple member chunk events.

val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t

Create a new shard

\ No newline at end of file +Shard (disml.Disml__Sharder.Shard)

Module Disml__Sharder.Shard

Module representing a single shard.

type shard = {
hb_interval : Core.Time.Span.t Async.Ivar.t;

Time span between heartbeats, wrapped in an Ivar.

seq : int;

Current sequence number

session : string option;

Session id, if one exists.

pipe : Websocket_async.Frame.t Async.Pipe.Reader.t * Websocket_async.Frame.t Async.Pipe.Writer.t;

Raw frame IO pipe used for websocket communications.

ready : unit Async.Ivar.t;

A simple Ivar indicating if the shard has received READY.

url : string;

The websocket URL in use.

id : int * int;

A tuple as expected by Discord. First element is the current shard index, second element is the total shard count.

_internal : Async.Reader.t * Async.Writer.t;
}

Representation of the state of a shard.

type 'a t = {
mutable state : 'a;
}

Wrapper around an internal state, used to wrap shard.

val heartbeat : shard -> shard Async.Deferred.t

Send a heartbeat to Discord. This is handled automatically.

val set_status : status:Yojson.Safe.json -> shard -> shard Async.Deferred.t

Set the status of the shard.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml__.Snowflake.t -> shard -> shard Async.Deferred.t

Request guild members for the shard's guild. Causes dispatch of multiple member chunk events.

val create : url:string -> shards:(int * int) -> unit -> shard Async.Deferred.t

Create a new shard

val shutdown_clean : shard -> unit Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__Sharder/index.html b/docs/disml/Disml__Sharder/index.html index 69dfbe7..c0928a9 100644 --- a/docs/disml/Disml__Sharder/index.html +++ b/docs/disml/Disml__Sharder/index.html @@ -1,2 +1,2 @@ -Disml__Sharder (disml.Disml__Sharder)

Module Disml__Sharder

Internal sharding manager. Most of this is accessed through Client.

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t

Start the Sharder. This is called by Client.start.

module Shard : sig ... end

Module representing a single shard.

val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t

Calls Shard.set_status for each shard registered with the sharder.

val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t

Like set_status but takes a function with a shard as its parameter and json for its return.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml.Snowflake.t -> t -> Shard.shard list Async.Deferred.t

Calls Shard.request_guild_members for each shard registered with the sharder.

\ No newline at end of file +Disml__Sharder (disml.Disml__Sharder)

Module Disml__Sharder

Internal sharding manager. Most of this is accessed through Client.

exception Invalid_Payload
exception Failure_to_Establish_Heartbeat
type t
val start : ?⁠count:int -> unit -> t Async.Deferred.t

Start the Sharder. This is called by Client.start.

module Shard : sig ... end

Module representing a single shard.

val set_status : status:Yojson.Safe.json -> t -> Shard.shard list Async.Deferred.t

Calls Shard.set_status for each shard registered with the sharder.

val set_status_with : f:(Shard.shard -> Yojson.Safe.json) -> t -> Shard.shard list Async.Deferred.t

Like set_status but takes a function with a shard as its parameter and json for its return.

val request_guild_members : ?⁠query:string -> ?⁠limit:int -> guild:Disml__.Snowflake.t -> t -> Shard.shard list Async.Deferred.t

Calls Shard.request_guild_members for each shard registered with the sharder.

val shutdown_all : t -> unit list Async.Deferred.t
\ No newline at end of file diff --git a/docs/disml/Disml__Snowflake/index.html b/docs/disml/Disml__Snowflake/index.html index ef6befe..f0f5bf7 100644 --- a/docs/disml/Disml__Snowflake/index.html +++ b/docs/disml/Disml__Snowflake/index.html @@ -1,2 +1,2 @@ -Disml__Snowflake (disml.Disml__Snowflake)

Module Disml__Snowflake

type t = Core.Int.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val of_yojson_exn : Yojson.Safe.json -> t
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val to_yojson : t -> Yojson.Safe.json
val timestamp : t -> int
val timestamp_iso : t -> string
\ No newline at end of file +Disml__Snowflake (disml.Disml__Snowflake)

Module Disml__Snowflake

type t = Core.Int.t
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val time_of_t : t -> Core.Time.t

Convert a snowflake into a Core.Time.t

val timestamp : t -> int

Convert a snowflake into a Unix timestamp. Millisecond precision.

val timestamp_iso : t -> string

Convert a snowflake into an ISO8601 timestamp string. This is equivalent to calling Snowflake.time_of_t snowflake |> Time.(to_string_iso8601_basic ~zone:Zone.utc)

\ No newline at end of file diff --git a/docs/disml/Disml__User/index.html b/docs/disml/Disml__User/index.html index b88ff5e..e3b8a80 100644 --- a/docs/disml/Disml__User/index.html +++ b/docs/disml/Disml__User/index.html @@ -1,2 +1,2 @@ -Disml__User (disml.Disml__User)

Module Disml__User

include module type of Disml.User_t
type partial_user = {
id : Disml.Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Disml.Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val tag : t -> string
val mention : t -> string
val default_avatar : t -> string
val face : t -> string
\ No newline at end of file +Disml__User (disml.Disml__User)

Module Disml__User

include module type of Disml__.User_t
type partial_user = {
id : Disml__.User_id_t.t;
}

A partial user. Used internally.

val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Disml__.User_id_t.t;

The user's Snowflake ID, wrapped in the convenience `User_id type.

username : string;

The username of the user.

discriminator : string;

The 4 digits, as a string, that come after the '#' in a Discord username.

avatar : string option;

The hash of the user avatar, if they have one set. See User.face to get the avatar URL.

bot : bool;

Whether the user is a bot.

}

A user object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val tag : t -> string

The user tag. Equivalent to concatenating the username and discriminator, separated by a '#'.

val mention : t -> string

The mention string for the user. Equivalent to <@USER_ID>.

val default_avatar : t -> string

The default avatar for the user.

val face : t -> string

The avatar url of the user, falling back to the default avatar.

\ No newline at end of file diff --git a/docs/disml/Disml__User_id/.dune-keep b/docs/disml/Disml__User_id/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__User_id/index.html b/docs/disml/Disml__User_id/index.html new file mode 100644 index 0000000..f022d31 --- /dev/null +++ b/docs/disml/Disml__User_id/index.html @@ -0,0 +1,2 @@ + +Disml__User_id (disml.Disml__User_id)

Module Disml__User_id

include module type of Disml__.User_id_t
type t = [
| `User_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
include Disml__.S.UserImpl with type t := Disml__.User_id_t.t
type t
\ No newline at end of file diff --git a/docs/disml/Disml__User_id_t/.dune-keep b/docs/disml/Disml__User_id_t/.dune-keep new file mode 100644 index 0000000..e69de29 diff --git a/docs/disml/Disml__User_id_t/index.html b/docs/disml/Disml__User_id_t/index.html new file mode 100644 index 0000000..a46063d --- /dev/null +++ b/docs/disml/Disml__User_id_t/index.html @@ -0,0 +1,2 @@ + +Disml__User_id_t (disml.Disml__User_id_t)

Module Disml__User_id_t

type t = [
| `User_id of Disml__.Snowflake.t
]
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val __t_of_sexp__ : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
val get_id : t -> Disml__.Snowflake.t
\ No newline at end of file diff --git a/docs/disml/Disml__User_t/index.html b/docs/disml/Disml__User_t/index.html index baecc2a..df4a113 100644 --- a/docs/disml/Disml__User_t/index.html +++ b/docs/disml/Disml__User_t/index.html @@ -1,2 +1,2 @@ -Disml__User_t (disml.Disml__User_t)

Module Disml__User_t

type partial_user = {
id : Disml.Snowflake.t;
}
val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Disml.Snowflake.t;
username : string;
discriminator : string;
avatar : string option;
bot : bool;
}
val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file +Disml__User_t (disml.Disml__User_t)

Module Disml__User_t

type partial_user = {
id : Disml__.User_id_t.t;
}

A partial user. Used internally.

val partial_user_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> partial_user
val sexp_of_partial_user : partial_user -> Ppx_sexp_conv_lib.Sexp.t
val partial_user_to_yojson : partial_user -> Yojson.Safe.json
val partial_user_of_yojson : Yojson.Safe.json -> partial_user Ppx_deriving_yojson_runtime.error_or
val partial_user_of_yojson_exn : Yojson.Safe.json -> partial_user
type t = {
id : Disml__.User_id_t.t;

The user's Snowflake ID, wrapped in the convenience `User_id type.

username : string;

The username of the user.

discriminator : string;

The 4 digits, as a string, that come after the '#' in a Discord username.

avatar : string option;

The hash of the user avatar, if they have one set. See User.face to get the avatar URL.

bot : bool;

Whether the user is a bot.

}

A user object.

val t_of_sexp : Ppx_sexp_conv_lib.Sexp.t -> t
val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t
val to_yojson : t -> Yojson.Safe.json
val of_yojson : Yojson.Safe.json -> t Ppx_deriving_yojson_runtime.error_or
val of_yojson_exn : Yojson.Safe.json -> t
\ No newline at end of file -- cgit v1.2.3