summaryrefslogtreecommitdiff
path: root/tissue/commit.scm
diff options
context:
space:
mode:
authorArun Isaac2022-07-13 13:27:30 +0530
committerArun Isaac2022-07-19 17:37:02 +0530
commite2fe50c591706a7902048aaef911ce433522a322 (patch)
tree4da5664ccc7a33667db51358d0fc299683cac7b2 /tissue/commit.scm
parent6fa357a7f5793b29473a5fb1a2476eee38d676d3 (diff)
downloadtissue-e2fe50c591706a7902048aaef911ce433522a322.tar.gz
tissue-e2fe50c591706a7902048aaef911ce433522a322.tar.lz
tissue-e2fe50c591706a7902048aaef911ce433522a322.zip
document: Store serialized date as value in Xapian document.
* tissue/document.scm (document-recency-date): Declare public generic function. (document-term-generator): Store serialized date in slot 0 of Xapian document. * tissue/file-document.scm (document-recency-date): New generic method. * tissue/commit.scm (document-recency-date): New generic method.
Diffstat (limited to 'tissue/commit.scm')
-rw-r--r--tissue/commit.scm4
1 files changed, 4 insertions, 0 deletions
diff --git a/tissue/commit.scm b/tissue/commit.scm
index 2ff6553..30d07b7 100644
--- a/tissue/commit.scm
+++ b/tissue/commit.scm
@@ -42,6 +42,10 @@
"Return the ID term for DOCUMENT."
(string-append "Qcommit." (commit-hash commit)))
+(define-method (document-recency-date (commit <commit>))
+ "Return a date representing the recency of DOCUMENT"
+ (doc:commit-author-date commit))
+
(define-method (document-term-generator (commit <commit>))
"Return a term generator indexing COMMIT."
(let ((term-generator (next-method)))