summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-01-22 23:25:15 +0000
committerArun Isaac2023-01-23 00:28:12 +0000
commita2045cbf478b7cf05ff6ce1f2e77afce914cd249 (patch)
tree912a6abd27f4368d06b340a285257f1ae248815b
parent0854a668d258fbef4a5b268a8db9ddf036fd5015 (diff)
downloadtissue-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.scm11
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)))