diff options
| author | Arun Isaac | 2022-06-26 01:22:29 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-06-26 01:22:29 +0530 |
| commit | 2d67e9d3ec052383ffac8f7adaa96f2057260812 (patch) | |
| tree | a31575c760f92ac2bd7eb5ed740e489d0579c68c | |
| parent | 81d942a1bbca0a66739537bc1e3330f4af61066e (diff) | |
| download | tissue-2d67e9d3ec052383ffac8f7adaa96f2057260812.tar.gz tissue-2d67e9d3ec052383ffac8f7adaa96f2057260812.tar.lz tissue-2d67e9d3ec052383ffac8f7adaa96f2057260812.zip | |
issue: Index issues with type:issue.
* tissue/issue.scm (issue->alist): Add (type . issue) pair.
(index-issue): Index type:issue.
| -rw-r--r-- | tissue/issue.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tissue/issue.scm b/tissue/issue.scm index 9cb7382..9c66f88 100644 --- a/tissue/issue.scm +++ b/tissue/issue.scm @@ -100,7 +100,8 @@ (define (issue->alist issue) "Convert ISSUE, a <issue> object, to an association list that can be serialized." - `((file . ,(issue-file issue)) + `((type . issue) + (file . ,(issue-file issue)) (title . ,(issue-title issue)) (creator . ,(issue-creator issue)) (created-date . ,(date->iso-8601 (issue-created-date issue))) @@ -349,6 +350,7 @@ with PREFIX." (term-generator (make-term-generator #:stem (make-stem "en") #:document doc))) ;; Index metadata with various prefixes. + (index-text! term-generator "issue" #:prefix "XT") (index-text! term-generator (issue-title issue) #:prefix "S") (index-person term-generator (issue-creator issue) "A") (index-person term-generator (issue-last-updater issue) "XA") |