20 lines
598 B
Scheme
20 lines
598 B
Scheme
(module (pandoc cli)
|
|
|
|
(#;export
|
|
pandoc-cli)
|
|
|
|
(import (scheme)
|
|
(chicken base)
|
|
(only (medea) read-json)
|
|
(only (scheme base) utf8->string)
|
|
(only (scsh-process) run/port))
|
|
|
|
(define (pandoc-cli #!optional command-name)
|
|
(let ((command-name (string->symbol (or command-name "pandoc"))))
|
|
(lambda (input-format bytevectors)
|
|
(map (lambda (bytevector)
|
|
(read-json
|
|
(run/port (,command-name --from ,input-format --to json)
|
|
(<< ,(utf8->string bytevector)))))
|
|
bytevectors)))))
|