From 2d67e9d3ec052383ffac8f7adaa96f2057260812 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 26 Jun 2022 01:22:29 +0530
Subject: issue: Index issues with type:issue.

* tissue/issue.scm (issue->alist): Add (type . issue) pair.
(index-issue): Index type:issue.
---
 tissue/issue.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tissue/issue.scm b/tissue/issue.scm
index 9cb7382..9c66f88 100644
--- a/tissue/issue.scm
+++ b/tissue/issue.scm
@@ -100,7 +100,8 @@
 (define (issue->alist issue)
   "Convert ISSUE, a <issue> object, to an association list that can be
 serialized."
-  `((file . ,(issue-file issue))
+  `((type . issue)
+    (file . ,(issue-file issue))
     (title . ,(issue-title issue))
     (creator . ,(issue-creator issue))
     (created-date . ,(date->iso-8601 (issue-created-date issue)))
@@ -349,6 +350,7 @@ with PREFIX."
          (term-generator (make-term-generator #:stem (make-stem "en")
                                               #:document doc)))
     ;; Index metadata with various prefixes.
+    (index-text! term-generator "issue" #:prefix "XT")
     (index-text! term-generator (issue-title issue) #:prefix "S")
     (index-person term-generator (issue-creator issue) "A")
     (index-person term-generator (issue-last-updater issue) "XA")
-- 
cgit v1.2.3