From 57df76de6441899b659e30c6a8e9d7572b85f7a0 Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 17 Dec 2018 13:13:10 -0700 Subject: Some abstractions --- lib/models/user.ml | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'lib/models/user.ml') diff --git a/lib/models/user.ml b/lib/models/user.ml index 36b7d4b..13ee1cf 100644 --- a/lib/models/user.ml +++ b/lib/models/user.ml @@ -1,2 +1,22 @@ module Make(Http : S.Http) = struct + open Core + open User_t + + let tag user = + Printf.sprintf "%s#%d" user.username user.discriminator + + let mention (user:User_t.t) = + Printf.sprintf "<@%d>" user.id + + let default_avatar user = + let avatar = 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 end \ No newline at end of file -- cgit v1.2.3 From 1a73007b3aaa17940173eaff1eb4f6703fd9ec0c Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 19 Dec 2018 13:44:04 -0700 Subject: Re-arrange autogen serialization files and incorporate into dune file --- lib/models/user.ml | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lib/models/user.ml') diff --git a/lib/models/user.ml b/lib/models/user.ml index 13ee1cf..cd91a39 100644 --- a/lib/models/user.ml +++ b/lib/models/user.ml @@ -1,6 +1,8 @@ module Make(Http : S.Http) = struct open Core open User_t + + type t = User_t.t let tag user = Printf.sprintf "%s#%d" user.username user.discriminator -- cgit v1.2.3