From 7411f852750c8337006522e56451a1748c7bcbc4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 11 Jul 2022 00:23:53 +0530
Subject: search: By default, search all documents not just issues.
* tissue/search.scm (parse-query): By default, search all documents
not just issues.
---
tissue/search.scm | 31 ++++++++++++-------------------
1 file changed, 12 insertions(+), 19 deletions(-)
diff --git a/tissue/search.scm b/tissue/search.scm
index 1aafc40..934b2bc 100644
--- a/tissue/search.scm
+++ b/tissue/search.scm
@@ -31,25 +31,18 @@
(define (parse-query search-query)
"Parse SEARCH-QUERY and return a xapian Query object."
- (xapian:parse-query
- ;; When query does not mention type or state, assume
- ;; is:open. Assuming is:open is implicitly assuming type:issue
- ;; since only issues can have is:open.
- (if (string-null? search-query)
- "is:open"
- (if (or (string-contains-ci search-query "type:")
- (string-contains-ci search-query "is:"))
- search-query
- (string-append "is:open AND (" search-query ")")))
- #:stemmer (make-stem "en")
- #:prefixes '(("type" . "XT")
- ("title" . "S")
- ("creator" . "A")
- ("lastupdater" . "XA")
- ("assigned" . "XI")
- ("keyword" . "K")
- ("tag" . "K")
- ("is" . "XS"))))
+ (if (string-null? search-query)
+ (Query-MatchAll)
+ (xapian:parse-query search-query
+ #:stemmer (make-stem "en")
+ #:prefixes '(("type" . "XT")
+ ("title" . "S")
+ ("creator" . "A")
+ ("lastupdater" . "XA")
+ ("assigned" . "XI")
+ ("keyword" . "K")
+ ("tag" . "K")
+ ("is" . "XS")))))
(define* (search-fold proc initial db search-query
#:key (offset 0) (maximum-items (database-document-count db)))
--
cgit v1.2.3