Guild ID and Channel ID abstractions

1 files changed, 86 insertions, 0 deletions

diff --git a/lib/s.ml b/lib/s.ml
new file mode 100644
index 0000000..0985082
--- /dev/null
+++ b/lib/s.ml
@@ -0,0 +1,86 @@
+open Async
+
+module type Has_snowflake = sig
+    type t [@@deriving sexp, yojson]
+    val get_id : t -> Snowflake.t
+end
+
+module type ChannelImpl = sig
+    type t
+    exception Invalid_message
+    exception No_message_found
+
+    (** Advanced message sending.
+
+        Raises {!Invalid_message} if one of content or embed is not set.
+
+        {3 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.send_message ~embed msg.channel >>> ignore
+
+            Client.message_create := check_command
+        ]}
+    *)
+    val send_message :
+        ?embed:Embed.t ->
+        ?content:string ->
+        ?file:string ->
+        ?tts:bool ->
+        t ->
+        Message_t.t Deferred.Or_error.t
+
+    (** [say str ch] is equivalent to [send_message ~content:str ch]. *)
+    val say : string -> t -> Message_t.t Deferred.Or_error.t
+
+    val delete : t -> unit Deferred.Or_error.t
+    val get_message : id:Snowflake.t -> t -> Message_t.t Deferred.Or_error.t
+    val get_messages :
+        ?mode:[ `Before | `After | `Around ] ->
+        ?id:Snowflake.t ->
+        ?limit:int ->
+        t ->
+        Message_t.t list Deferred.Or_error.t
+    val broadcast_typing : t -> unit Deferred.Or_error.t
+    val get_pins : t -> Message_t.t list Deferred.Or_error.t
+    (* TODO more things related to guild channels *)
+end
+
+module type GuildImpl = sig
+    open Async
+
+    type t
+    val ban_user : id:Snowflake.t -> ?reason:string -> ?days:int -> t -> unit Deferred.Or_error.t
+    val create_emoji : name:string -> image:string -> t -> Emoji.t Deferred.Or_error.t
+    val create_role :
+        name:string ->
+        ?colour:int ->
+        ?permissions:int ->
+        ?hoist:bool ->
+        ?mentionable:bool ->
+        t ->
+        Role_t.t Deferred.Or_error.t
+    val create_channel : mode:[ `Text | `Voice | `Category ] -> name:string -> t -> Channel_t.t Deferred.Or_error.t
+    val delete : t -> unit Deferred.Or_error.t
+    val get_ban : id:Snowflake.t -> t -> Ban_t.t Deferred.Or_error.t
+    val get_bans : t -> Ban_t.t list Deferred.Or_error.t
+    val get_emoji : id:Snowflake.t -> t -> Emoji.t Deferred.Or_error.t
+    val get_invites : t -> Yojson.Safe.json Deferred.Or_error.t
+    val get_prune_count : days:int -> t -> int Deferred.Or_error.t
+    val get_webhooks : t -> Yojson.Safe.json Deferred.Or_error.t
+    val kick_user : id:Snowflake.t -> ?reason:string -> t -> unit Deferred.Or_error.t
+    val leave : t -> Yojson.Safe.json Deferred.Or_error.t
+    val list_voice_regions : t -> Yojson.Safe.json Deferred.Or_error.t
+    val prune : days:int -> t -> int Deferred.Or_error.t
+    val request_members : t -> Member_t.t list Deferred.Or_error.t
+    val set_afk_channel : id:Snowflake.t -> t -> t Deferred.Or_error.t
+    val set_afk_timeout : timeout:int -> t -> t Deferred.Or_error.t
+    val set_name : name:string -> t -> t Deferred.Or_error.t
+    val set_icon : icon:string -> t -> t Deferred.Or_error.t
+    val unban_user : id:Snowflake.t -> ?reason:string -> t -> unit Deferred.Or_error.t
+end
\ No newline at end of file