From 9ab3a50ead137ec0e6a81565a5ae9b1b320ed22d Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Wed, 27 Dec 2023 17:41:37 -0500
Subject: reader: Factor out new reader-find and reader-read procedures.

---
 doc/haunt.texi | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'doc')

diff --git a/doc/haunt.texi b/doc/haunt.texi
index da05b9a..a612f35 100644
--- a/doc/haunt.texi
+++ b/doc/haunt.texi
@@ -639,6 +639,16 @@ Return @code{#t} if @var{file-name} is a file supported by
 @var{reader}.
 @end deffn
 
+@deffn {Procedure} reader-find? readers file-name
+Return the first reader in @var{readers} that can parse
+@var{file-name}, or @code{#f} if there is no such reader.
+@end deffn
+
+@deffn {Procedure} reader-read reader file-name
+Parse @var{file-name} using @var{reader} and return two values: an
+alist of metadata and an SXML tree.
+@end deffn
+
 @deffn {Procedure} read-post @var{reader} @var{file-name} [@var{default-metadata}]
 Read a post object from @var{file-name} using @var{reader}, merging
 its metadata with @var{default-metadata}, or the empty list if not
-- 
cgit v1.2.3