lib/models/guild/member.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
43

open Async
open Core
include Member_t

let add_role ~(role:Role_t.t) member =
    Http.add_member_role member.guild_id member.user.id role.id
    >>| Result.map ~f:ignore

let remove_role ~(role:Role_t.t) member =
    Http.remove_member_role member.guild_id member.user.id role.id
    >>| Result.map ~f:ignore

let ban ?(reason="") ?(days=0) member =
    Http.guild_ban_add member.guild_id member.user.id (`Assoc [
        ("delete-message-days", `Int days);
        ("reason", `String reason);
    ]) >>| Result.map ~f:ignore

let kick ?reason member =
    let payload = match reason with
    | Some r -> `Assoc [("reason", `String r)]
    | None -> `Null
    in Http.remove_member member.guild_id member.user.id payload >>| Result.map ~f:ignore

let mute member =
    Http.edit_member member.guild_id member.user.id (`Assoc [
        ("mute", `Bool true);
    ]) >>| Result.map ~f:ignore

let deafen member =
    Http.edit_member member.guild_id member.user.id (`Assoc [
        ("deaf", `Bool true);
    ]) >>| Result.map ~f:ignore

let unmute member =
    Http.edit_member member.guild_id member.user.id (`Assoc [
        ("mute", `Bool false);
    ]) >>| Result.map ~f:ignore

let undeafen member =
    Http.edit_member member.guild_id member.user.id (`Assoc [
        ("deaf", `Bool false);
    ]) >>| Result.map ~f:ignore