improve embed example

2 files changed, 44 insertions, 1 deletions

diff --git a/bin/bot.ml b/bin/bot.ml
index d0a8218..bc7a1b7 100644
--- a/bin/bot.ml
+++ b/bin/bot.ml
@@ -30,11 +30,23 @@ let check_command (msg:Message.t) =
         |> Int.to_string in
         Message.reply msg list >>> ignore
     | "!embed" ->
+        let image_url = "https://images-ext-1.discordapp.net/external/46n5KQDNg1K4-UybFifnLsIVJkmIutfBG5zO_vpU5Zk/%3Fsize%3D1024/https/cdn.discordapp.com/avatars/345316276098433025/17ccdc992814cc6e21a9e7d743a30e37.webp" in
         let embed = Embed.(default
             |> title "Foo"
             |> description "Bar"
+            |> url "https://gitlab.com/Mishio595/disml"
+            |> timestamp Time.(now () |> to_string_iso8601_basic ~zone:Time.Zone.utc)
             |> colour 0xff
-            |> field { name = "field"; value = "test"; inline = true; }
+            |> footer { Embed.default_footer with text = "boop" }
+            |> image { Embed.default_image with url = Some image_url }
+            |> thumbnail { Embed.default_image with url = Some image_url }
+            |> author { Embed.default_author with
+                name = Some "Adelyn";
+                url = Some "https://gitlab.com/Mishio595/disml";
+                icon_url = Some image_url }
+            |> field { name = "field 1"; value = "test"; inline = true; }
+            |> field { name = "field 2"; value = "test"; inline = true; }
+            |> field { name = "field 3"; value = "test"; inline = true; }
         ) in
         Message.reply_with ~embed msg >>> ignore
     | _ -> ()
diff --git a/lib/models/embed.ml b/lib/models/embed.ml
index 23c8607..86f8ece 100644
--- a/lib/models/embed.ml
+++ b/lib/models/embed.ml
@@ -69,6 +69,37 @@ let default = {
     fields = [];
 }
 
+let default_footer = {
+    text = "";
+    icon_url = None;
+    proxy_icon_url = None;
+}
+
+let default_image = {
+    url = None;
+    proxy_url = None;
+    height = None;
+    width = None;
+}
+
+let default_video = {
+    url = None;
+    width = None;
+    height = None;
+}
+
+let default_provider = {
+    name = None;
+    url = None;
+}
+
+let default_author = {
+    name = None;
+    url = None;
+    icon_url = None;
+    proxy_icon_url = None;
+}
+
 let title v e = { e with title = Some v }
 let description v e = { e with description = Some v }
 let url v e = { e with url = Some v }