From a2045cbf478b7cf05ff6ce1f2e77afce914cd249 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 22 Jan 2023 23:25:15 +0000 Subject: web: Express gemtext-exporter in terms of skribe-exporter. The gemtext exporter is just a skribe exporter with different defaults. * tissue/web/static.scm (gemtext-exporter): Express in terms of skribe-exporter. --- tissue/web/static.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'tissue') diff --git a/tissue/web/static.scm b/tissue/web/static.scm index 795ccee..97e02be 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -1,5 +1,5 @@ ;;; tissue --- Text based issue tracker -;;; Copyright © 2022 Arun Isaac +;;; Copyright © 2022, 2023 Arun Isaac ;;; ;;; This file is part of tissue. ;;; @@ -104,12 +104,9 @@ stylesheet is included in the generated web pages." (engine (html-engine))) "Return a writer function that reads gemtext @var{file} using @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) - engine))))) + (skribe-exporter file + #:reader reader + #:engine engine)) (define* (skribe-exporter file #:key (reader (make-reader 'skribe)) (engine (html-engine))) -- cgit v1.2.3