diff options
| -rw-r--r-- | tissue/web/static.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm index 5346ba8..38a7d42 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -83,25 +83,27 @@ read from and the output port to write to." ;; Relax the gemtext standard by joining adjacent lines. #:join-lines? #t)) -(define* (gemtext-exporter file #:key (reader (gemtext-reader))) +(define* (gemtext-exporter file #:key (reader (gemtext-reader)) + (engine (find-engine 'html))) "Return a writer function that reads gemtext @var{file} using -@var{reader} and exports it." +@var{reader} and exports it using @var{engine}." (exporter file (lambda (in out) (with-output-to-port out (cut evaluate-document (evaluate-ast-from-port in #:reader reader) - (find-engine 'html)))))) + engine))))) -(define* (skribe-exporter file #:key (reader (make-reader 'skribe))) +(define* (skribe-exporter file #:key (reader (make-reader 'skribe)) + (engine (find-engine 'html))) "Return a writer function that reads skribe @var{file} using -@var{reader} and exports it." +@var{reader} and exports it using @var{engine}." (exporter file (lambda (in out) (with-output-to-port out (cut evaluate-document (evaluate-ast-from-port in #:reader reader) - (find-engine 'html)))))) + engine))))) (define (with-current-directory directory thunk) "Change current directory to DIRECTORY, execute THUNK and restore |