aboutsummaryrefslogtreecommitdiff
path: root/html.scm
blob: 90dd03960bc2d67662dbe92d2e36b22a5ed15fbe (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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))