diff options
| author | Arun Isaac | 2022-07-09 15:45:59 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-09 16:41:02 +0530 |
| commit | 693d4c492c760794df7186058f95e12f91cfc2be (patch) | |
| tree | 27c60b868e2d119c2c33ed6163986cf85af081f6 /tissue/document.scm | |
| parent | fcbd627e9a4fe936485bcb080669d72b5b60324d (diff) | |
| download | tissue-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.
Diffstat (limited to 'tissue/document.scm')
| -rw-r--r-- | tissue/document.scm | 1 |
1 files changed, 1 insertions, 0 deletions
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)) |