summaryrefslogtreecommitdiff
path: root/haunt/reader.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt/reader.scm')
-rw-r--r--haunt/reader.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/haunt/reader.scm b/haunt/reader.scm
index d078594..461b4be 100644
--- a/haunt/reader.scm
+++ b/haunt/reader.scm
@@ -63,19 +63,19 @@ metadata with DEFAULT-METADATA."
(append metadata default-metadata)
sxml)))
-(define* (read-posts directory ignore? readers #:optional (default-metadata '()))
- "Read all of the files in DIRECTORY that do not match IGNORE? as
-post objects. The READERS list must contain a matching reader for
-every post."
+(define* (read-posts directory keep? readers #:optional (default-metadata '()))
+ "Read all of the files in DIRECTORY that match KEEP? as post
+objects. The READERS list must contain a matching reader for every
+post."
(define enter? (const #t))
(define (leaf file-name stat memo)
- (if (ignore? file-name)
- memo
+ (if (keep? file-name)
(let ((reader (find (cut reader-match? <> file-name) readers)))
(if reader
(cons (read-post reader file-name default-metadata) memo)
- (error "no reader available for post: " file-name)))))
+ (error "no reader available for post: " file-name)))
+ memo))
(define (noop file-name stat result)
result)