open Core
open Async
include Message_t

let add_reaction msg (emoji:Emoji.t) =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    let e = match emoji.id with
    | Some i -> Printf.sprintf "%s:%d" emoji.name i
    | None -> emoji.name
    in
    Http.create_reaction channel_id id e


let remove_reaction msg (emoji:Emoji.t) (user:User_t.t) =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    let `User_id user_id = user.id in
    let e = match emoji.id with
    | Some i -> Printf.sprintf "%s:%d" emoji.name i
    | None -> emoji.name
    in
    Http.delete_reaction channel_id id e user_id


let clear_reactions msg =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    Http.delete_reactions channel_id id


let delete msg =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    Http.delete_message channel_id id


let pin msg =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    Http.pin_message channel_id id


let unpin msg =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    Http.unpin_message channel_id id


let reply msg content =
    Channel_id.say content msg.channel_id

let reply_with ?embed ?content ?files ?tts ?(reply_mention=false) msg =
        let reply = if reply_mention then Some msg.id else None in
    Channel_id.send_message ?embed ?content ?files ?tts ?reply msg.channel_id

let set_content msg cont =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    to_yojson { msg with content = cont; }
    |> Http.edit_message channel_id id


let set_embed msg embed =
    let `Message_id id = msg.id in
    let `Channel_id channel_id = msg.channel_id in
    to_yojson { msg with embeds = [embed]; }
    |> Http.edit_message channel_id id