folder restructure

1 files changed, 67 insertions, 0 deletions

diff --git a/lib/models/guild/guild_t.ml b/lib/models/guild/guild_t.ml
new file mode 100644
index 0000000..6bb5090
--- /dev/null
+++ b/lib/models/guild/guild_t.ml
@@ -0,0 +1,67 @@
+open Core
+
+type pre = {
+    id: Snowflake.t;
+    name: string;
+    icon: string option [@default None];
+    splash: string option [@default None];
+    owner_id: Snowflake.t;
+    region: string;
+    afk_channel_id: Snowflake.t option [@default None];
+    afk_timeout: int;
+    embed_enabled: bool option [@default None];
+    embed_channel_id: Snowflake.t option [@default None];
+    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 [@default None];
+    widget_enabled: bool option [@default None];
+    widget_channel: Channel_t.channel_wrapper option [@default None];
+    system_channel: Channel_t.channel_wrapper option [@default None];
+    large: bool;
+    unavailable: bool;
+    member_count: int option [@default None];
+    members: Member_t.member list;
+    channels: Channel_t.channel_wrapper list;
+} [@@deriving sexp, yojson { strict = false }]
+
+type t = {
+    id: Snowflake.t;
+    name: string;
+    icon: string option [@default None];
+    splash: string option [@default None];
+    owner_id: Snowflake.t;
+    region: string;
+    afk_channel_id: Snowflake.t option [@default None];
+    afk_timeout: int;
+    embed_enabled: bool option [@default None];
+    embed_channel_id: Snowflake.t option [@default None];
+    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 [@default None];
+    widget_enabled: bool option [@default None];
+    widget_channel: Channel_t.t option [@default None];
+    system_channel: Channel_t.t option [@default None];
+    large: bool;
+    unavailable: bool;
+    member_count: int option [@default None];
+    members: Member_t.t list;
+    channels: Channel_t.t list;
+} [@@deriving sexp, yojson { strict = false }]
+
+let wrap ({id;name;icon;splash;owner_id;region;afk_channel_id;afk_timeout;embed_enabled;embed_channel_id;verification_level;default_message_notifications;explicit_content_filter;roles;emojis;features;mfa_level;application_id;widget_enabled;widget_channel;system_channel;large;unavailable;member_count;members;channels}:pre) =
+    let roles = List.map ~f:(Role_t.wrap ~guild_id:id) roles in
+    let members = List.map ~f:(Member_t.wrap ~guild_id:id) members in
+    let channels = List.map ~f:Channel_t.wrap channels in
+    let widget_channel = Option.map ~f:Channel_t.wrap widget_channel in
+    let system_channel = Option.map ~f:Channel_t.wrap system_channel in
+    {id;name;icon;splash;owner_id;region;afk_channel_id;afk_timeout;embed_enabled;embed_channel_id;verification_level;default_message_notifications;explicit_content_filter;roles;emojis;features;mfa_level;application_id;widget_enabled;widget_channel;system_channel;large;unavailable;member_count;members;channels}
\ No newline at end of file