lib/models/message.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42

module Make(Http : S.Http) = struct
    open Async
    include Message_t

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

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

    let clear_reactions msg =
        Http.delete_reactions msg.channel_id msg.id

    let delete msg =
        Http.delete_message msg.channel_id msg.id

    let pin msg =
        Http.pin_message msg.channel_id msg.id

    let unpin msg =
        Http.unpin_message msg.channel_id msg.id

    let reply msg cont =
        let rep = `Assoc [("content", `String cont)] in
        Http.create_message msg.channel_id rep

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

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