diff options
| author | Arun Isaac | 2023-01-22 23:52:00 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-01-23 00:28:12 +0000 |
| commit | 021f7922702c66d80a4b6f90df39dd0e0baf6d54 (patch) | |
| tree | a200f0a0bc64eebe2abeae63fc9fd7af0c55b1a4 | |
| parent | c01f4d6ddf6ab8634823686af380d4c91e53db69 (diff) | |
| download | tissue-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.scm | 3 |
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)) |