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

open Core
include User_t

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

let mention user =
    Printf.sprintf "<@%Ld>" (User_id.get_id user.id)

let default_avatar user =
    let avatar = Int64.(of_string user.discriminator % 5L) 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.get_id user.id) avatar ext
    | None -> default_avatar user