1 files changed, 24 insertions, 0 deletions
diff --git a/strigoform/window.scm b/strigoform/window.scm
new file mode 100644
index 0000000..87225ef
--- /dev/null
+++ b/strigoform/window.scm
@@ -0,0 +1,24 @@
+(library (strigoform window)
+  (export current-window
+          window-inner-width
+          window-inner-height
+          request-animation-frame
+          timeout)
+  (import (scheme base)
+          (hoot ffi))
+
+  (define-foreign current-window
+    "window" "get"
+    -> (ref null extern))
+  (define-foreign window-inner-width
+    "window" "innerWidth"
+    (ref null extern) -> i32)
+  (define-foreign window-inner-height
+    "window" "innerHeight"
+    (ref null extern) -> i32)
+  (define-foreign request-animation-frame
+    "window" "requestAnimationFrame"
+    (ref null extern) -> none)
+  (define-foreign timeout
+    "window" "setTimeout"
+    (ref null extern) f64 -> i32))