From 6696a0b5fcb1b17895285d80d9636defb2df3f9d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 10 Apr 2024 14:49:03 -0400
Subject: Sloppily refactor into modules.

---
 strigoform/element.scm | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 strigoform/element.scm

(limited to 'strigoform/element.scm')

diff --git a/strigoform/element.scm b/strigoform/element.scm
new file mode 100644
index 0000000..a901960
--- /dev/null
+++ b/strigoform/element.scm
@@ -0,0 +1,52 @@
+(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)))
-- 
cgit v1.2.3