summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/xapian.scm15
1 files changed, 13 insertions, 2 deletions
diff --git a/mumi/xapian.scm b/mumi/xapian.scm
index 53737de..e4fd316 100644
--- a/mumi/xapian.scm
+++ b/mumi/xapian.scm
@@ -92,6 +92,7 @@ messages and index their contents in the Xapian database at DBPATH."
(map email-body emails))
"\n"))
+ (bug (bug-status bugid))
(idterm (string-append "Q" bugid))
(doc (make-document #:data bugid
#:terms `((,idterm . 0))
@@ -107,6 +108,12 @@ messages and index their contents in the Xapian database at DBPATH."
(index-text! term-generator submitter #:prefix "A")
(index-text! term-generator authors #:prefix "XA")
(index-text! term-generator subjects #:prefix "S")
+ (index-text! term-generator (or (bug-owner bug) "") #:prefix "XO")
+ (index-text! term-generator (or (bug-severity bug) "normal") #:prefix "XS")
+ (index-text! term-generator (or (bug-tags bug) "") #:prefix "XT")
+ (index-text! term-generator (cond
+ ((bug-done bug) "done")
+ (else "open")) #:prefix "XSTATUS")
(index-text! term-generator file #:prefix "F")
;; Index subject and body without prefixes for general
@@ -258,8 +265,12 @@ intact."
(query (parse-query* querystring*
#:stemmer (make-stem "en")
#:prefixes '(("submitter" . "A")
- ("author" . "XA")
- ("subject" . "S")))))
+ ("author" . "XA")
+ ("subject" . "S")
+ ("owner" . "XO")
+ ("severity" . "XS")
+ ("tag" . "XT")
+ ("status" . "XSTATUS")))))
;; Fold over the results, return bug id.
(mset-fold (lambda (item acc)
(cons