diff options
| author | Arun Isaac | 2022-06-29 00:38:36 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-29 00:46:28 +0530 |
| commit | ed9aad811eae0dd8f2f992afd841b9f5e81481cd (patch) | |
| tree | 4aa197f7fddd37a18982c3b643b4d2b590245710 /bin | |
| parent | 3655b4ca24ff71a55ba119f30abba149e93cb43d (diff) | |
| download | tissue-ed9aad811eae0dd8f2f992afd841b9f5e81481cd.tar.gz tissue-ed9aad811eae0dd8f2f992afd841b9f5e81481cd.tar.lz tissue-ed9aad811eae0dd8f2f992afd841b9f5e81481cd.zip | |
search: Limit number of search results.
* tissue/search.scm (search-fold, search-map): Accept maximum number of search results and offset as arguments. * bin/tissue (tissue-search): Do not print number of search results. Use search-map instead of search-fold.
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/tissue | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/bin/tissue b/bin/tissue index ce6f4f7..7cc4a95 100755 --- a/bin/tissue +++ b/bin/tissue @@ -86,11 +86,7 @@ Search issues using SEARCH-QUERY. (args (call-with-database %xapian-index (lambda (db) - (format #t "total ~a~%" - (search-fold (lambda (document mset count) - (print document mset) - (1+ count)) - 0 db (string-join args)))))))) + (search-map print db (string-join args))))))) (define tissue-show (match-lambda* |