diff options
| author | Arun Isaac | 2023-01-22 23:25:15 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-23 00:28:12 +0000 |
| commit | a2045cbf478b7cf05ff6ce1f2e77afce914cd249 (patch) | |
| tree | 912a6abd27f4368d06b340a285257f1ae248815b | |
| parent | 0854a668d258fbef4a5b268a8db9ddf036fd5015 (diff) | |
| download | tissue-a2045cbf478b7cf05ff6ce1f2e77afce914cd249.tar.gz tissue-a2045cbf478b7cf05ff6ce1f2e77afce914cd249.tar.lz tissue-a2045cbf478b7cf05ff6ce1f2e77afce914cd249.zip | |
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.
| -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))) |