From 7352d1932e15b6da85774853e6953c0b390fd75b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 18 Mar 2019 14:57:14 +0100 Subject: Working. --- html.scm | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 html.scm (limited to 'html.scm') 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 ) port) + (display (fmt-hash-table t) port)) + +(define-method (display (t ) port) + (display (fmt-hash-table t) port)) -- cgit v1.2.3