diff options
| -rw-r--r-- | tissue/search.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tissue/search.scm b/tissue/search.scm index a257bbf..647ae5b 100644 --- a/tissue/search.scm +++ b/tissue/search.scm @@ -66,3 +66,19 @@ first call." initial (enquire-mset (enquire db query) #:maximum-items (database-document-count db))))) + +(define (search-map proc db search-terms) + "Search xapian database DB using SEARCH-TERMS and map over the results +using PROC. SEARCH-TERMS are a list of search terms that are joined +with the \"AND\" operator. + +PROC is invoked as (PROC DOCUMENT MSET). DOCUMENT is an instance of +<document> or one of its subclasses. MSET is the xapian MSet object +representing the search results." + (reverse + (search-fold (lambda (document mset result) + (cons (proc document mset) + result)) + '() + db + search-terms))) |