diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2020-05-13 11:05:49 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2020-05-13 11:52:29 +0200 |
commit | 65efa73c115007b3bab3e636d75180971fa6187f (patch) | |
tree | ee5f17e1a922657c5b765377f971f021672bbb21 | |
parent | 05f00635785438b50abe1e39559196fa6da62d47 (diff) |
xapian: Include owner, severity, tag, and status in Xapian db.
-rw-r--r-- | mumi/xapian.scm | 15 |
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 |