diff options
| -rw-r--r-- | tissue/search.scm | 4 | ||||
| -rw-r--r-- | tissue/web/server.scm | 4 |
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)) |