diff options
| author | Arun Isaac | 2022-12-25 15:15:47 +0000 |
|---|---|---|
| committer | Arun Isaac | 2022-12-25 23:33:04 +0000 |
| commit | 951f8cf5c1d7688784de0c9f083625f6f3f031b1 (patch) | |
| tree | 1e68587b6169ef9216e0d8e76c541bf287504ce9 | |
| parent | 38fb87bb4e34d88bc9f07e53a2e000b9eca88aac (diff) | |
| download | tissue-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.scm | 4 |
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 |