13 lines
442 B
Scheme
13 lines
442 B
Scheme
|
(import (scheme base) (scheme write))
|
||
|
|
(import (rename (only (gauche base) pprint) (pprint pretty-print))
|
||
|
|
(rename (only (sxml serializer) srl:sxml->html) (srl:sxml->html sxml->html))
|
||
|
|
(pandoc))
|
||
|
|
|
||
|
|
(display (sxml->html (pandoc-file->sxml 'gfm "test/CharEq.md")))
|
||
|
|
(newline)
|
||
|
|
(newline)
|
||
|
|
(display (sxml->html (pandoc-file->sxml 'gfm "test/VoidValue.md")))
|
||
|
|
(newline)
|
||
|
|
(newline)
|
||
|
|
(pretty-print (pandoc-file->json 'gfm "test/VoidValue.md"))
|