blob: 9bdedc01abcdd9615f0882ff5ad6a63ebc9ff296 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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)))
|