(library (strigoform element)
  (export element-value
          set-element-value!
          set-element-width!
          set-element-height!
          append-child!
          remove!
          replace-with!
          set-attribute!
          remove-attribute!
          add-event-listener!
          remove-event-listener!
          clone-element)
  (import (scheme base)
          (hoot ffi))

  (define-foreign element-value
    "element" "value"
    (ref null extern) -> (ref string))
  (define-foreign set-element-value!
    "element" "setValue"
    (ref null extern) (ref string) -> none)
  (define-foreign set-element-width!
    "element" "setWidth"
    (ref null extern) i32 -> none)
  (define-foreign set-element-height!
    "element" "setHeight"
    (ref null extern) i32 -> none)
  (define-foreign append-child!
    "element" "appendChild"
    (ref null extern) (ref null extern) -> (ref null extern))
  (define-foreign remove!
    "element" "remove"
    (ref null extern) -> none)
  (define-foreign replace-with!
    "element" "replaceWith"
    (ref null extern) (ref null extern) -> none)
  (define-foreign set-attribute!
    "element" "setAttribute"
    (ref null extern) (ref string) (ref string) -> none)
  (define-foreign remove-attribute!
    "element" "removeAttribute"
    (ref null extern) (ref string) -> none)
  (define-foreign add-event-listener!
    "element" "addEventListener"
    (ref null extern) (ref string) (ref null extern) -> none)
  (define-foreign remove-event-listener!
    "element" "removeEventListener"
    (ref null extern) (ref string) (ref null extern) -> none)
  (define-foreign clone-element
    "element" "clone"
    (ref null extern) -> (ref null extern)))