From 0854a668d258fbef4a5b268a8db9ddf036fd5015 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 22 Jan 2023 23:22:36 +0000 Subject: search: Limit to 1000 search results by default. * tissue/search.scm (search-fold): Limit to 1000 search results by default. * tissue/web/server.scm (search-handler): Limit to 1000 search results by default. --- tissue/search.scm | 4 ++-- tissue/web/server.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'tissue') diff --git a/tissue/search.scm b/tissue/search.scm index bc60c19..5ac5af0 100644 --- a/tissue/search.scm +++ b/tissue/search.scm @@ -1,5 +1,5 @@ ;;; tissue --- Text based issue tracker -;;; Copyright © 2022 Arun Isaac +;;; Copyright © 2022, 2023 Arun Isaac ;;; ;;; This file is part of tissue. ;;; @@ -97,7 +97,7 @@ when PRED returns #f." query)) (define* (search-fold proc initial db search-query - #:key (offset 0) (maximum-items (database-document-count db))) + #:key (offset 0) (maximum-items 1000)) "Search xapian database DB using SEARCH-QUERY and fold over the results using PROC and INITIAL. diff --git a/tissue/web/server.scm b/tissue/web/server.scm index ad74d6b..95bed70 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -1,5 +1,5 @@ ;;; tissue --- Text based issue tracker -;;; Copyright © 2022 Arun Isaac +;;; Copyright © 2022, 2023 Arun Isaac ;;; ;;; This file is part of tissue. ;;; @@ -124,7 +124,7 @@ query. QUERY and FILTER are Xapian Query objects." (Enquire-set-sort-by-value enquire 0 #t)) enquire) #:offset 0 - #:maximum-items (database-document-count db)) + #:maximum-items 1000) #:matches (matches db query (Query-MatchAll)) #:matched-open-issues (matches db query (assq-ref filter-alist 'open-issue)) #:matched-closed-issues (matches db query (assq-ref filter-alist 'closed-issue)) -- cgit v1.2.3