(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))