document: Index boolean terms.

Metadata that will be used in boolean filtering should be indexed as
boolean terms, not as free text. This also results in the happy
coincidence that we no longer need a specialized
document-term-generator generic method for <issue> and <commit>.

* tissue/document.scm (document-boolean-terms): New public generic
function.
(document-term-generator): Use document-boolean-terms.
* tissue/issue.scm (document-boolean-terms): New generic method.
(document-term-generator): Delete generic method.
* tissue/commit.scm (document-boolean-terms): New generic method.
(document-term-generator): Delete generic method.

1 files changed, 5 insertions, 6 deletions

diff --git a/tissue/commit.scm b/tissue/commit.scm
index 30d07b7..10dc436 100644
--- a/tissue/commit.scm
+++ b/tissue/commit.scm
@@ -42,16 +42,15 @@
   "Return the ID term for DOCUMENT."
   (string-append "Qcommit." (commit-hash commit)))
 
+(define-method (document-boolean-terms (commit <commit>))
+  "Return the boolean terms in COMMIT."
+  (list (string-append "Qcommit." (commit-hash commit))
+        (string-append "A" (doc:commit-author commit))))
+
 (define-method (document-recency-date (commit <commit>))
   "Return a date representing the recency of DOCUMENT"
   (doc:commit-author-date commit))
 
-(define-method (document-term-generator (commit <commit>))
-  "Return a term generator indexing COMMIT."
-  (let ((term-generator (next-method)))
-    (index-person! term-generator (doc:commit-author commit) "A")
-    term-generator))
-
 (define-method (document-snippet-source-text (commit <commit>))
   "Return the source text for COMMIT from which to extract a search
 result snippet."