summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/search.scm4
-rw-r--r--tissue/web/server.scm4
2 files changed, 4 insertions, 4 deletions
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 <arunisaac@systemreboot.net>
+;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; 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 <arunisaac@systemreboot.net>
+;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net>
;;;
;;; 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))