diff options
Diffstat (limited to 'tissue/web/static.scm')
| -rw-r--r-- | tissue/web/static.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm index 69a9d90..fc3a211 100644 --- a/tissue/web/static.scm +++ b/tissue/web/static.scm @@ -61,15 +61,15 @@ NEW-EXTENSION." new-extension)) (define (exporter file proc) - "Return a writer function that exports FILE using PROC. PROC is -passed two arguments---the input port to read from and the output port -to write to." + "Return a writer function that exports @var{file} using +@var{proc}. @var{proc} is passed two arguments---the input port to +read from and the output port to write to." (lambda (out) (call-with-file-in-git (current-git-repository) file (cut proc <> out)))) (define (copier file) - "Return a writer function that copies FILE." + "Return a writer function that copies @var{file}." (exporter file (lambda (in out) (port-transduce (tmap (cut put-bytevector out <>)) @@ -84,7 +84,8 @@ to write to." #:join-lines? #t)) (define* (gemtext-exporter file #:optional (reader (gemtext-reader))) - "Return a writer function that exports FILE, a gemtext file." + "Return a writer function that reads gemtext @var{file} using +@var{reader} and exports it." (exporter file (lambda (in out) (with-output-to-port out @@ -93,7 +94,8 @@ to write to." (find-engine 'html)))))) (define* (skribe-exporter file #:optional (reader (make-reader 'skribe))) - "Return a writer function that exports FILE, a skribe file." + "Return a writer function that reads skribe @var{file} using +@var{reader} and exports it." (exporter file (lambda (in out) (with-output-to-port out |