blob: bb6f17eab27ece365f7d11399d97eadb9e366973 (
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
open Printf
type t =
{ endpoint: string
; route: string
}
let make endpoint = { endpoint; route = endpoint }
(* let make_complex endpoint route = { endpoint; route } *)
let gateway = make "/gateway"
let gateway_bot = make "/gateway/bot"
let channel cid =
make (sprintf "/channels/%d" cid)
let channel_messages cid =
make (sprintf "/channels/%d/messages" cid)
let channel_message cid mid =
make (sprintf "/channels/%d/messages/%d" cid mid)
let channel_reaction_me cid mid em =
make (sprintf "/channels/%d/messages/%d/reactions/%s/@me" cid mid em)
let channel_reaction cid mid em uid =
make (sprintf "/channels/%d/messages/%d/reactions/%s/%d" cid mid em uid)
let channel_reactions_get cid mid em =
make (sprintf "/channels/%d/messages/%d/reactions/%s" cid mid em)
let channel_reactions_delete cid mid =
make (sprintf "/channels/%d/messages/%d/reactions" cid mid)
let channel_bulk_delete cid =
make (sprintf "/channels/%d" cid)
let channel_permission cid uid =
make (sprintf "/channels/%d/permissions/%d" cid uid)
let channel_permissions cid =
make (sprintf "/channels/%d/permissions" cid)
let channels = make "/channels"
let channel_call_ring cid =
make (sprintf "/channels/%d/call/ring" cid)
let channel_invites cid =
make (sprintf "/channels/%d/invites" cid)
let channel_typing cid =
make (sprintf "/channels/%d/typing" cid)
let channel_pins cid =
make (sprintf "/channels/%d/pins" cid)
let channel_pin cid mid =
make (sprintf "/channels/%d/pins/%d" cid mid)
let guilds = make "/guilds"
let guild gid =
make (sprintf "/guilds/%d" gid)
let guild_channels gid =
make (sprintf "/guilds/%d/channels" gid)
let guild_members gid =
make (sprintf "/guilds/%d/members" gid)
let guild_member gid uid =
make (sprintf "/guilds/%d/members/%d" gid uid)
let guild_member_role gid uid rid =
make (sprintf "/guilds/%d/members/%d/roles/%d" gid uid rid)
let guild_bans gid =
make (sprintf "/guilds/%d/bans" gid)
let guild_ban gid uid =
make (sprintf "/guilds/%d/bans/%d" gid uid)
let guild_roles gid =
make (sprintf "/guilds/%d/roles" gid)
let guild_role gid rid =
make (sprintf "/guilds/%d/roles/%d" gid rid)
let guild_prune gid =
make (sprintf "/guilds/%d/prune" gid)
let guild_voice_regions gid =
make (sprintf "/guilds/%d/regions" gid)
let guild_invites gid =
make (sprintf "/guilds/%d/invites" gid)
let guild_integrations gid =
make (sprintf "/guilds/%d/integrations" gid)
let guild_integration gid iid =
make (sprintf "/guilds/%d/integrations/%d" gid iid)
let guild_integration_sync gid iid =
make (sprintf "/guilds/%d/integrations/%d/sync" gid iid)
let guild_embed gid =
make (sprintf "/guilds/%d/embed" gid)
let guild_emojis gid =
make (sprintf "/guilds/%d/emojis" gid)
let guild_emoji gid eid =
make (sprintf "/guilds/%d/emojis/%d" gid eid)
let guild_me_nick gid =
make (sprintf "/guilds/%d/members/@me/nick" gid)
let guild_vanity_url gid =
make (sprintf "/guilds/%d/vanity-url" gid)
let guild_audit_logs gid =
make (sprintf "/guilds/%d/audit-logs" gid)
let webhooks_guild gid =
make (sprintf "/guilds/%d/webhooks" gid)
let webhooks_channel cid =
make (sprintf "/channels/%d/webhooks" cid)
let webhook wid =
make (sprintf "/webhooks/%d" wid)
let webhook_token wid token =
make (sprintf "/webhooks/%d/%s" wid token)
let webhook_git wid token =
make (sprintf "/webhooks/%d/%s/github" wid token)
let webhook_slack wid token =
make (sprintf "/webhooks/%d/%s/slack" wid token)
let user uid =
make (sprintf "/users/%d" uid)
let me = make "/users/@me"
let me_guilds = make "/users/@me/guilds"
let me_guild gid =
make (sprintf "/users/@me/guilds/%d" gid)
let me_channels = make "/users/@me/channels"
let me_connections = make "/users/@me/connections"
let invite iid =
make (sprintf "/invites/%s" iid)
let regions = make "/voice/regions"
let application_information = make "/oauth2/applications/@me"
let group_recipient cid uid =
make (sprintf "/channels/%d/recipients/%d" cid uid)
let cdn_embed_avatar hash =
make (sprintf "/embed/avatars/%s.png" hash)
let cdn_emoji hash ext =
make (sprintf "/emojis/%s.%s" hash ext)
let cdn_icon uid hash ext =
make (sprintf "/icons/%d/%s.%s" uid hash ext)
let cdn_avatar uid hash ext =
make (sprintf "/avatars/%d/%s.%s" uid hash ext)
let cdn_default_avatar ind =
make (sprintf "/embed/avatars/%d" ind)
|