From df7c2f672d5b413fb8bf5bc4811b5dff9d56c919 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 25 Dec 2022 15:55:29 +0000 Subject: web: static: Allow customization of engine used in export. * tissue/web/static.scm (gemtext-exporter, skribe-exporter): Accept engine keyword argument. --- tissue/web/static.scm | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'tissue') 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 -- cgit v1.2.3