lib/models/user/user.ml


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

open Core
include User_t

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

let mention user =
    let `User_id id = user.id in
    Printf.sprintf "<@%Ld>" id

let default_avatar user =
    let avatar = Int64.(of_string user.discriminator % 5L) in
    Endpoints.cdn_default_avatar avatar

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