1 files changed, 19 insertions, 0 deletions
diff --git a/html.scm b/html.scm
new file mode 100644
index 0000000..90dd039
--- /dev/null
+++ b/html.scm
@@ -0,0 +1,19 @@
+(define-module (html)
+  #:export (parse-html)
+  #:re-export (write)
+  #:use-module (oop goops)
+  )
+
+;; (setenv "LD_LIBRARY_PATH" (dirname (current-filename)))
+
+;; exposes the parse-html symbol
+(load-extension "libguile-html" "init_html")
+
+(define (fmt-hash-table t)
+  `(@ ,@(hash-map->list cons t)))
+
+(define-method (write (t <hashtable>) port)
+  (display (fmt-hash-table t) port))
+
+(define-method (display (t <hashtable>) port)
+  (display (fmt-hash-table t) port))