From ede26b808188eb4d14c6b4181c933dfc09c0a22e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 5 Mar 2020 19:43:21 +0530
Subject: xapian: Wrap Enquire-get-mset using keyword arguments.

* xapian/xapian.scm (enquire-mset): Introduce offset and maximum-items
keyword arguments.
* examples/search.scm (search): Pass pagesize as keyword argument to
enquire-mset. Remove argument offset.
---
 xapian/xapian.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 181a3e8..2ddc8b4 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -110,7 +110,17 @@
       (Enquire-set-weighting-scheme enquire weighting-scheme))
     enquire))
 
-(define enquire-mset Enquire-get-mset)
+(define* (enquire-mset enquire #:key (offset 0) maximum-items)
+  "Run a query using the settings in the ENQUIRE object and return an
+mset object.
+
+OFFSET specifies the number of items to ignore at the beginning of the
+result set.
+
+MAXIMUM-ITEMS specifies the maximum number of items to return. To
+return all matches, pass the result of calling database-document-count
+on the database object."
+  (Enquire-get-mset enquire offset maximum-items))
 
 (define mset-item-docid MSetIterator-get-docid)
 (define mset-item-document MSetIterator-get-document)
-- 
cgit v1.2.3