summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac <arunisaac@systemreboot.net>2022-07-09 15:45:59 +0530
committerArun Isaac <arunisaac@systemreboot.net>2022-07-09 16:41:02 +0530
commit693d4c492c760794df7186058f95e12f91cfc2be (patch)
tree27c60b868e2d119c2c33ed6163986cf85af081f6
parentfcbd627e9a4fe936485bcb080669d72b5b60324d (diff)
downloadtissue-693d4c492c760794df7186058f95e12f91cfc2be.tar.gz
tissue-693d4c492c760794df7186058f95e12f91cfc2be.tar.lz
tissue-693d4c492c760794df7186058f95e12f91cfc2be.zip
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.
-rwxr-xr-xbin/tissue8
-rw-r--r--tissue/document.scm1
2 files changed, 4 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
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))