diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-21 08:52:33 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-21 08:52:33 -0700 |
| commit | c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e (patch) | |
| tree | 3fe6679ff4520899bab9ab9fb96145efd614a3a3 /lib/models/user/user.ml | |
| parent | swap order of fields in example bot to reflect correct ordering (diff) | |
| download | disml-c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e.tar.xz disml-c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e.zip | |
folder restructure
Diffstat (limited to 'lib/models/user/user.ml')
| -rw-r--r-- | lib/models/user/user.ml | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lib/models/user/user.ml b/lib/models/user/user.ml new file mode 100644 index 0000000..bd6583c --- /dev/null +++ b/lib/models/user/user.ml @@ -0,0 +1,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
\ No newline at end of file |