summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-01-22 23:52:00 +0000
committerArun Isaac2023-01-23 00:28:12 +0000
commit021f7922702c66d80a4b6f90df39dd0e0baf6d54 (patch)
treea200f0a0bc64eebe2abeae63fc9fd7af0c55b1a4
parentc01f4d6ddf6ab8634823686af380d4c91e53db69 (diff)
downloadtissue-021f7922702c66d80a4b6f90df39dd0e0baf6d54.tar.gz
tissue-021f7922702c66d80a4b6f90df39dd0e0baf6d54.tar.lz
tissue-021f7922702c66d80a4b6f90df39dd0e0baf6d54.zip
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.
-rw-r--r--tissue/issue.scm3
1 files changed, 3 insertions, 0 deletions
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))