lib/models/user.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

open Core
include User_t

let tag user =
    Printf.sprintf "%s#%s" user.username user.discriminator

let mention user =
    Printf.sprintf "<@%d>" user.id

let default_avatar user =
    let avatar = Int.of_string user.discriminator % 5 in
    Endpoints.cdn_default_avatar avatar

let face user = match user.avatar with
    | Some avatar ->
        let ext = if String.is_substring ~substring:"a_" avatar
        then "gif"
        else "png" in
        Endpoints.cdn_avatar user.id avatar ext
    | None -> default_avatar user