summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-12-25 15:15:47 +0000
committerArun Isaac2022-12-25 23:33:04 +0000
commit951f8cf5c1d7688784de0c9f083625f6f3f031b1 (patch)
tree1e68587b6169ef9216e0d8e76c541bf287504ce9
parent38fb87bb4e34d88bc9f07e53a2e000b9eca88aac (diff)
downloadtissue-951f8cf5c1d7688784de0c9f083625f6f3f031b1.tar.gz
tissue-951f8cf5c1d7688784de0c9f083625f6f3f031b1.tar.lz
tissue-951f8cf5c1d7688784de0c9f083625f6f3f031b1.zip
web: static: Accept reader as a keyword argument.
* tissue/web/static.scm (gemtext-exporter, skribe-exporter): Accept reader as a keyword argument, instead of as an optional argument.
-rw-r--r--tissue/web/static.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm
index fc3a211..5346ba8 100644
--- a/tissue/web/static.scm
+++ b/tissue/web/static.scm
@@ -83,7 +83,7 @@ read from and the output port to write to."
;; Relax the gemtext standard by joining adjacent lines.
#:join-lines? #t))
-(define* (gemtext-exporter file #:optional (reader (gemtext-reader)))
+(define* (gemtext-exporter file #:key (reader (gemtext-reader)))
"Return a writer function that reads gemtext @var{file} using
@var{reader} and exports it."
(exporter file
@@ -93,7 +93,7 @@ read from and the output port to write to."
(evaluate-ast-from-port in #:reader reader)
(find-engine 'html))))))
-(define* (skribe-exporter file #:optional (reader (make-reader 'skribe)))
+(define* (skribe-exporter file #:key (reader (make-reader 'skribe)))
"Return a writer function that reads skribe @var{file} using
@var{reader} and exports it."
(exporter file