From 99cc1a52fd7f5efdede86e3d5f2df5c7ec57a0d5 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 7 May 2024 23:13:41 +0100
Subject: xapian: Accept boolean prefixes in parse-query.

* xapian/xapian.scm (parse-query): Accept boolean prefixes.
---
 xapian/xapian.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'xapian')

diff --git a/xapian/xapian.scm b/xapian/xapian.scm
index 7222e69..6ab879c 100644
--- a/xapian/xapian.scm
+++ b/xapian/xapian.scm
@@ -166,7 +166,7 @@ generated."
 
 (define increase-termpos! TermGenerator-increase-termpos)
 
-(define* (parse-query querystring #:key stemmer stemming-strategy (prefixes '()) (range-processors '()))
+(define* (parse-query querystring #:key stemmer stemming-strategy (prefixes '()) (boolean-prefixes '()) (range-processors '()))
   (let ((queryparser (new-QueryParser)))
     (QueryParser-set-stemmer queryparser stemmer)
     (when stemming-strategy
@@ -175,6 +175,10 @@ generated."
                 ((field . prefix)
                  (QueryParser-add-prefix queryparser field prefix)))
               prefixes)
+    (for-each (match-lambda
+                ((field . prefix)
+                 (QueryParser-add-boolean-prefix queryparser field prefix)))
+              boolean-prefixes)
     (for-each (cut QueryParser-add-rangeprocessor queryparser <>)
               range-processors)
     (let ((query (QueryParser-parse-query queryparser querystring)))
-- 
cgit v1.2.3