diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 14:57:14 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 14:57:14 +0100 |
| commit | 7352d1932e15b6da85774853e6953c0b390fd75b (patch) | |
| tree | fa193c3a2a85e2628645598d8f48a77d0f4604eb /html.scm | |
| parent | Add preliminary parse code. (diff) | |
| download | texttv-7352d1932e15b6da85774853e6953c0b390fd75b.tar.gz texttv-7352d1932e15b6da85774853e6953c0b390fd75b.tar.xz | |
Working.
Diffstat (limited to 'html.scm')
| -rw-r--r-- | html.scm | 19 |
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)) |