From 951f8cf5c1d7688784de0c9f083625f6f3f031b1 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 25 Dec 2022 15:15:47 +0000
Subject: 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.
---
 tissue/web/static.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tissue')

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
-- 
cgit v1.2.3