From 021f7922702c66d80a4b6f90df39dd0e0baf6d54 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 22 Jan 2023 23:52:00 +0000
Subject: file-document: Set document type of <file-document> to document.

Earlier, the document type returned was "file-document". It only
seemed to work because xapian split them into two terms—"file" and
"document".

* tissue/file-document.scm (document-type): Return "document".
* tissue/issue.scm (document-type): New generic method.
---
 tissue/issue.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'tissue')

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 6000ebd..4ba131a 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -58,6 +58,9 @@
   (tasks #:accessor issue-tasks #:init-keyword #:tasks)
   (completed-tasks #:accessor issue-completed-tasks #:init-keyword #:completed-tasks))
 
+(define-method (document-type (issue <issue>))
+  "issue")
+
 (define-method (document-boolean-terms (issue <issue>))
   "Return the boolean terms in ISSUE."
   (append (list (string-append "A" (file-document-creator issue))
-- 
cgit v1.2.3