diff options
| author | Arun Isaac | 2022-06-29 00:10:57 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-29 00:10:57 +0530 |
| commit | 58dcd6b052a61229e0ceb021076a1f450a80aea9 (patch) | |
| tree | 44713489c3e3565073cf25607153c427225adf19 /bin | |
| parent | 3e69dc361669cab60997882a6cf1bf879a7bc05d (diff) | |
| download | tissue-58dcd6b052a61229e0ceb021076a1f450a80aea9.tar.gz tissue-58dcd6b052a61229e0ceb021076a1f450a80aea9.tar.lz tissue-58dcd6b052a61229e0ceb021076a1f450a80aea9.zip | |
document: Add web-uri slot to <document> class.
* tissue/document.scm (<document>)[web-uri]: New slot.
* bin/tissue (main): Set web-uri slot before indexing document.
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/tissue | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -250,7 +250,9 @@ top-level of the git repository." (call-with-writable-database %xapian-index (lambda (db) (for-each (lambda (indexed-document) - (let* ((document ((indexed-document-reader indexed-document))) + (let* ((document (slot-set ((indexed-document-reader indexed-document)) + 'web-uri + (indexed-document-web-uri indexed-document))) (term-generator (document-term-generator document))) (index-text! term-generator (document-type document) #:prefix "XT") (replace-document! db |