From f96d8d30e88ea9f4e2a2f08a710500b9990fe55a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Manuel=20V=C3=A1zquez=20Acosta?= <mva.led@gmail.com>
Date: Thu, 10 Oct 2024 10:31:51 +0200
Subject: [PATCH] Add Visual Viewport API

---
 src/Webapi/Dom/Webapi__Dom__VisualViewport.res | 15 +++++++++++++++
 src/Webapi/Dom/Webapi__Dom__Window.res         |  3 +++
 2 files changed, 18 insertions(+)
 create mode 100644 src/Webapi/Dom/Webapi__Dom__VisualViewport.res

diff --git a/src/Webapi/Dom/Webapi__Dom__VisualViewport.res b/src/Webapi/Dom/Webapi__Dom__VisualViewport.res
new file mode 100644
index 0000000..23dcb3f
--- /dev/null
+++ b/src/Webapi/Dom/Webapi__Dom__VisualViewport.res
@@ -0,0 +1,15 @@
+/// Support for https://developer.mozilla.org/en-US/docs/Web/API/VisualViewport
+
+type t
+
+@get external height: t => int = "height"
+@get external width: t => int = "width"
+@get external scale: t => float = "scale"
+@get external offsetLeft: t => int = "offsetLeft"
+@get external offsetTop: t => int = "offsetTop"
+@get external pageLeft: t => int = "pageLeft"
+@get external pageTop: t => int = "pageTop"
+
+include Webapi__Dom__EventTarget.Impl({
+  type t = t
+})
diff --git a/src/Webapi/Dom/Webapi__Dom__Window.res b/src/Webapi/Dom/Webapi__Dom__Window.res
index 02e510a..82dfaa6 100644
--- a/src/Webapi/Dom/Webapi__Dom__Window.res
+++ b/src/Webapi/Dom/Webapi__Dom__Window.res
@@ -146,6 +146,9 @@ module Impl = (
   @set
   external setOnLoad: (t_window, unit => unit) => unit =
     "onload" /* use addEventListener instead? */
+
+  /* VisualViewport API */
+  @get external visualViewport: t_window => Webapi__Dom__VisualViewport.t = "visualViewport"
 }
 
 type t = Dom.window