summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xbin/tissue4
-rw-r--r--tissue/document.scm4
2 files changed, 6 insertions, 2 deletions
diff --git a/bin/tissue b/bin/tissue
index 59de104..e29cf3c 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -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
diff --git a/tissue/document.scm b/tissue/document.scm
index 63aad96..86fa548 100644
--- a/tissue/document.scm
+++ b/tissue/document.scm
@@ -34,6 +34,7 @@
scm->object
<document>
document-title
+ document-web-uri
document-type
document-id-term
document-text
@@ -129,7 +130,8 @@ that operates on a copy of OBJECT. It does not mutate OBJECT."
object))))
(define-class <document> ()
- (title #:accessor document-title #:init-keyword #:title))
+ (title #:accessor document-title #:init-keyword #:title)
+ (web-uri #:accessor document-web-uri #:init-keyword #:web-uri))
(define-method (document-type (document <document>))
"document")