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.

1 files changed, 3 insertions, 5 deletions

diff --git a/bin/tissue b/bin/tissue
index f457806..fcb704f 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -307,11 +307,9 @@ To get usage information for one of these sub-commands, run
     (call-with-writable-database db-path
       (lambda (db)
         (for-each (lambda (document)
-                    (let ((term-generator (document-term-generator document)))
-                      (index-text! term-generator (document-type document) #:prefix "XT")
-                      (replace-document! db
-                                         (document-id-term document)
-                                         (TermGenerator-get-document term-generator))))
+                    (replace-document! db
+                                       (document-id-term document)
+                                       (TermGenerator-get-document (document-term-generator document))))
                   (tissue-configuration-indexed-documents (load-config)))
         (WritableDatabase-set-metadata
          db "commit" (oid->string (reference-name->oid