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 /tissue/document.scm | |
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 'tissue/document.scm')
-rw-r--r-- | tissue/document.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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") |