From af684566617ebce536e9f30693aa3e225af906c4 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 14 Dec 2018 10:52:36 -0700 Subject: There's a lot going on --- bin/handler.ml | 44 +++++++++++++++++++++++++++++++++++++++++++- 1 file changed, 43 insertions(+), 1 deletion(-) (limited to 'bin/handler.ml') diff --git a/bin/handler.ml b/bin/handler.ml index 1dd01cb..8ed55a6 100644 --- a/bin/handler.ml +++ b/bin/handler.ml @@ -1 +1,43 @@ -let handle_event _a _b = print_endline "Received event!" \ No newline at end of file +module Make(Models : Disml.S.Models) = struct + (* open Core *) + open Async + (* open Models *) + open Disml.Event + + let handle_event = function + | HELLO _ -> print_endline "Received HELLO" + | READY _ -> print_endline "Received READY" + | RESUMED _ -> print_endline "Received RESUMED" + | INVALID_SESSION _ -> print_endline "Received INVALID_SESSION" + | CHANNEL_CREATE _ -> print_endline "Received CHANNEL_CREATE" + | CHANNEL_UPDATE _ -> print_endline "Received CHANNEL_UPDATE" + | CHANNEL_DELETE _ -> print_endline "Received CHANNEL_DELETE" + | CHANNEL_PINS_UPDATE _ -> print_endline "Received CHANNEL_PINS_UPDATE" + | GUILD_CREATE _ -> print_endline "Received GUILD_CREATE" + | GUILD_UPDATE _ -> print_endline "Received GUILD_UPDATE" + | GUILD_DELETE _ -> print_endline "Received GUILD_DELETE" + | GUILD_BAN_ADD _ -> print_endline "Received GUILD_BAN_ADD" + | GUILD_BAN_REMOVE _ -> print_endline "Received GUILD_BAN_REMOVE" + | GUILD_EMOJIS_UPDATE _ -> print_endline "Received GUILD_EMOJIS_UPDATE" + | GUILD_INTEGRATIONS_UPDATE _ -> print_endline "Received GUILD_INTEGRATIONS_UPDATE" + | GUILD_MEMBER_ADD _ -> print_endline "Received GUILD_MEMBER_ADD" + | GUILD_MEMBER_REMOVE _ -> print_endline "Received GUILD_MEMBER_REMOVE" + | GUILD_MEMBER_UPDATE _ -> print_endline "Received GUILD_MEMBER_UPDATE" + | GUILD_MEMBERS_CHUNK _ -> print_endline "Received GUILD_MEMBERS_CHUNK" + | GUILD_ROLE_CREATE _ -> print_endline "Received GUILD_ROLE_CREATE" + | GUILD_ROLE_UPDATE _ -> print_endline "Received GUILD_ROLE_UPDATE" + | GUILD_ROLE_DELETE _ -> print_endline "Received GUILD_ROLE_DELETE" + | MESSAGE_CREATE _ -> print_endline "Received MESSAGE_CREATE" + | MESSAGE_UPDATE _ -> print_endline "Received MESSAGE_UPDATE" + | MESSAGE_DELETE _ -> print_endline "Received MESSAGE_DELETE" + | MESSAGE_BULK_DELETE _ -> print_endline "Received MESSAGE_BULK_DELETE" + | MESSAGE_REACTION_ADD _ -> print_endline "Received MESSAGE_REACTION_ADD" + | MESSAGE_REACTION_REMOVE _ -> print_endline "Received MESSAGE_REACTION_REMOVE" + | MESSAGE_REACTION_REMOVE_ALL _ -> print_endline "Received MESSAGE_REACTION_REMOVE_ALL" + | PRESENCE_UPDATE _ -> print_endline "Received PRESENCE_UPDATE" + | TYPING_START _ -> print_endline "Received TYPING_START" + | USER_UPDATE _ -> print_endline "Received USER_UPDATE" + | VOICE_STATE_UPDATE _ -> print_endline "Received VOICE_STATE_UPDATE" + | VOICE_SERVER_UPDATE _ -> print_endline "Received VOICE_SERVER_UPDATE" + | WEBHOOKS_UPDATE _ -> print_endline "Received WEBHOOKS_UPDATE" +end \ No newline at end of file -- cgit v1.2.3 From 4df67b173aa7d51f5bd2ce95e476d130a6f93fd6 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Fri, 14 Dec 2018 11:53:25 -0700 Subject: Working and pretty message replying! --- bin/handler.ml | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'bin/handler.ml') diff --git a/bin/handler.ml b/bin/handler.ml index 8ed55a6..74eaefb 100644 --- a/bin/handler.ml +++ b/bin/handler.ml @@ -1,9 +1,13 @@ module Make(Models : Disml.S.Models) = struct - (* open Core *) + open Core open Async - (* open Models *) + open Models open Disml.Event + let check_command (msg:Disml.Message_t.t) = + if String.is_prefix ~prefix:"!ping" msg.content then + Message.reply msg "Hello!" >>> ignore + let handle_event = function | HELLO _ -> print_endline "Received HELLO" | READY _ -> print_endline "Received READY" @@ -27,7 +31,7 @@ module Make(Models : Disml.S.Models) = struct | GUILD_ROLE_CREATE _ -> print_endline "Received GUILD_ROLE_CREATE" | GUILD_ROLE_UPDATE _ -> print_endline "Received GUILD_ROLE_UPDATE" | GUILD_ROLE_DELETE _ -> print_endline "Received GUILD_ROLE_DELETE" - | MESSAGE_CREATE _ -> print_endline "Received MESSAGE_CREATE" + | MESSAGE_CREATE msg -> check_command msg; print_endline "Received MESSAGE_CREATE" | MESSAGE_UPDATE _ -> print_endline "Received MESSAGE_UPDATE" | MESSAGE_DELETE _ -> print_endline "Received MESSAGE_DELETE" | MESSAGE_BULK_DELETE _ -> print_endline "Received MESSAGE_BULK_DELETE" -- cgit v1.2.3