Merge branch 'oscarfsbs-main'

Merge pull request #3

src/discord_gleam.gleam

@@ -2,6 +2,7 @@ import discord_gleam/event_handler
 import discord_gleam/http/endpoints
 import discord_gleam/types/bot
 import discord_gleam/types/message
+import discord_gleam/types/reply
 import discord_gleam/types/slash_command
 import discord_gleam/ws/event_loop
 import discord_gleam/ws/packets/interaction_create
@@ -29,6 +30,19 @@ pub fn send_message(
   endpoints.send_message(bot.token, channel_id, msg)
 }
 
+pub fn reply(
+  bot: bot.Bot,
+  channel_id: String,
+  message_id: String,
+  message: String,
+  embeds: List(message.Embed),
+) -> Nil {
+  let msg =
+    reply.Reply(content: message, message_id: message_id, embeds: embeds)
+
+  endpoints.reply(bot.token, channel_id, msg)
+}
+
 pub fn kick_member(
   bot: bot.Bot,
   guild_id: String,

src/discord_gleam/http/endpoints.gleam

@@ -1,6 +1,7 @@
 import discord_gleam/http/request
 import discord_gleam/internal/error
 import discord_gleam/types/message
+import discord_gleam/types/reply
 import discord_gleam/types/slash_command
 import discord_gleam/types/user
 import discord_gleam/ws/packets/interaction_create
@@ -79,6 +80,45 @@ pub fn send_message(
   }
 }
 
+pub fn reply(token: String, channel_id: String, message: reply.Reply) -> Nil {
+  let data = reply.to_string(message)
+  io.debug(data)
+
+  logging.log(logging.Debug, "Replying: " <> data)
+
+  let request =
+    request.new_auth_post(
+      http.Post,
+      "/channels/" <> channel_id <> "/messages",
+      token,
+      data,
+    )
+  case hackney.send(request) {
+    Ok(resp) -> {
+      case resp.status {
+        200 -> {
+          logging.log(logging.Debug, "Reply sent")
+          Nil
+        }
+        _ -> {
+          logging.log(logging.Error, "Failed to send reply")
+          io.debug(resp.body)
+
+          Nil
+        }
+      }
+
+      Nil
+    }
+    Error(err) -> {
+      logging.log(logging.Error, "Failed to send reply: ")
+      io.debug(err)
+
+      Nil
+    }
+  }
+}
+
 pub fn kick_member(
   token: String,
   guild_id: String,

src/discord_gleam/types/reply.gleam

@@ -0,0 +1,28 @@
+import discord_gleam/types/message.{type Embed}
+import gleam/json
+import gleam/list
+
+pub type Reply {
+  Reply(content: String, message_id: String, embeds: List(Embed))
+}
+
+pub fn to_string(msg: Reply) -> String {
+  let embeds_json = list.map(msg.embeds, embed_to_json)
+  json.object([
+    #("content", json.string(msg.content)),
+    #("embeds", json.array(embeds_json, of: fn(x) { x })),
+    #(
+      "message_reference",
+      json.object([#("message_id", json.string(msg.message_id))]),
+    ),
+  ])
+  |> json.to_string
+}
+
+pub fn embed_to_json(embed: Embed) -> json.Json {
+  json.object([
+    #("title", json.string(embed.title)),
+    #("description", json.string(embed.description)),
+    #("color", json.int(embed.color)),
+  ])
+}