diff options
| author | Arun Isaac | 2020-03-05 19:43:21 +0530 |
|---|---|---|
| committer | Arun Isaac | 2020-03-05 19:47:38 +0530 |
| commit | ede26b808188eb4d14c6b4181c933dfc09c0a22e (patch) | |
| tree | 9e187d20de6b3edf6c5d11f9a1ab0e9464629dbf /examples | |
| parent | b10b6b76d375fea021a7e93e51c5243fcef99370 (diff) | |
| download | guile-xapian-ede26b808188eb4d14c6b4181c933dfc09c0a22e.tar.gz guile-xapian-ede26b808188eb4d14c6b4181c933dfc09c0a22e.tar.lz guile-xapian-ede26b808188eb4d14c6b4181c933dfc09c0a22e.zip | |
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.
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/search.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/examples/search.scm b/examples/search.scm index fee945e..e8f8aa5 100644 --- a/examples/search.scm +++ b/examples/search.scm @@ -25,7 +25,7 @@ (match record ((description title identifier) title))) -(define* (search dbpath querystring #:key (offset 0) (pagesize 10)) +(define* (search dbpath querystring #:key (pagesize 10)) ;; Open database for reading. call-with-database automatically ;; closes the database once we're done. (call-with-database dbpath @@ -49,7 +49,8 @@ ;; Get an Enquire object from the database with the ;; search results. Then, extract the MSet from the ;; Enquire object. - (enquire-mset (enquire db query) offset pagesize)))))) + (enquire-mset (enquire db query) + #:maximum-items pagesize)))))) ;; Handle command line arguments (match (command-line) |