(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))