blob: 2aaa0dae765f86b76ea3218c77dc6af161dedbe1 (
plain) (
blame)
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
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:%Ld" 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.get_id user.id in
let e = match emoji.id with
| Some i -> Printf.sprintf "%s:%Ld" 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
yojson_of_t { 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
yojson_of_t { msg with embeds = [embed]; }
|> Http.edit_message channel_id id
|