diff options
| -rw-r--r-- | tissue/web/static.scm | 11 |
1 files changed, 4 insertions, 7 deletions
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 <arunisaac@systemreboot.net> +;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; 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))) |