From 693d4c492c760794df7186058f95e12f91cfc2be Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 9 Jul 2022 15:45:59 +0530
Subject: bin: Move indexing document type into document-term-generator.

* bin/tissue (index): Move indexing document type into
document-term-generator generic function.
* tissue/document.scm (document-term-generator): Index document type.
---
 tissue/document.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'tissue/document.scm')

diff --git a/tissue/document.scm b/tissue/document.scm
index e40c80e..ed69254 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -153,6 +153,7 @@ and further text, increase-termpos! must be called before indexing."
                       #:data (call-with-output-string
                                (cut write (object->scm document) <>))
                       #:terms `((,(document-id-term document) . 0))))))
+    (index-text! term-generator (document-type document) #:prefix "XT")
     (index-text! term-generator (document-title document) #:prefix "S")
     (index-text! term-generator (document-text document))
     term-generator))
-- 
cgit v1.2.3