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