Sloppily refactor into modules.

1 files changed, 24 insertions, 0 deletions

diff --git a/strigoform/document.scm b/strigoform/document.scm
new file mode 100644
index 0000000..9bdedc0
--- /dev/null
+++ b/strigoform/document.scm
@@ -0,0 +1,24 @@
+(library (strigoform document)
+  (export current-document
+          document-body
+          get-element-by-id
+          make-text-node
+          make-element)
+  (import (scheme base)
+          (hoot ffi))
+
+  (define-foreign current-document
+    "document" "get"
+    -> (ref null extern))
+  (define-foreign document-body
+    "document" "body"
+    -> (ref null extern))
+  (define-foreign get-element-by-id
+    "document" "getElementById"
+    (ref string) -> (ref null extern))
+  (define-foreign make-text-node
+    "document" "createTextNode"
+    (ref string) -> (ref null extern))
+  (define-foreign make-element
+    "document" "createElement"
+    (ref string) -> (ref null extern)))